diff --git a/app/Main.hs b/app/Main.hs
index 5e14ef1..48be450 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -2,6 +2,7 @@ module Main where
 
 import SixtyFiveOhTwo.Instruction
 import Control.Monad.State
+import qualified Data.ByteString as B
 
 accumulatorLoadNStore :: Instruction
 accumulatorLoadNStore = do
@@ -15,4 +16,4 @@ myProgram = do
     call "accumulatorLoadNStore"
 
 main :: IO ()
-main = print $ runState myProgram emptyState
+main = B.putStr $ runInstructions myProgram