interpretTapeOp (Set    n) = modify $! replaceCursor $ fromIntegral n
interpretTapeOp (Set    n) = modify $! replaceCursor $ fromIntegral n
interpretTapeOp (Set    n) = modify $! replaceCursor $ fromIntegral n