diff --git a/day17.hs b/day17.hs
index 8898e66..147a0e5 100644
--- a/day17.hs
+++ b/day17.hs
@@ -11,11 +11,10 @@ main = do
     let mvFuncA = [76,44,49,50,44,76,44,49,50,44,76,44,54,44,76,44,54,10]
     let mvFuncB = [82,44,56,44,82,44,52,44,76,44,49,50,10] 
     let mvFuncC = [76,44,49,50,44,76,44,54,44,82,44,49,50,44,82,44,56,10]
-    let input = concat [mvRoutine, mvFuncA, mvFuncB, mvFuncC]
-    let mapPoints = (output (step brain []))
-    let split = splitOn [10] mapPoints
-    putStrLn (show mapPoints)
-    mapM putStrLn (map(map getSymbol) split) 
+    let videoStream = [110,10]
+    let input = concat [mvRoutine, mvFuncA, mvFuncB, mvFuncC, videoStream]
+    let dust = (output (step brain input))
+    putStrLn (show dust) 
 
 data Amplifier = Amplifier{ state :: [Int]
                             ,index :: Int