interpret :: BFProgram Int -> MachineM ()
interpret = mapM_ $ interpretOpIO >=> interpretTapeOp
interpret :: BFProgram Int -> MachineM ()
interpret = mapM_ $ interpretOpIO >=> interpretTapeOp
interpret = mapM_ $ interpretOpIO >=> interpretTapeOp