interpretTapeOp (Add    n) = modify $! modifyCursor  $ (+) (fromIntegral n)
interpretTapeOp (Add    n) = modify $! modifyCursor  $ (+) (fromIntegral n)
interpretTapeOp (Add    n) = modify $! modifyCursor  $ (+) (fromIntegral n)