interpretBF :: Machine -> BFProgram Int -> IO ()
interpretBF (Machine mMemory mIO) = void . (\x -> runRWST x mIO mMemory) . interpret
interpretBF :: Machine -> BFProgram Int -> IO ()
interpretBF (Machine mMemory mIO) = void . (\x -> runRWST x mIO mMemory) . interpret
interpretBF (Machine mMemory mIO) = void . (\x -> runRWST x mIO mMemory) . interpret