interpretTapeOp (Loop ops) = do
    c <- _cursor <$> get
    when (c /= 0) $! interpret (ops ++ [Loop ops])
interpretTapeOp (Loop ops) = do
    c <- _cursor <$> get
    when (c /= 0) $! interpret (ops ++ [Loop ops])
interpretTapeOp (Loop ops) = do
    c <- _cursor <$> get
    when (c /= 0) $! interpret (ops ++ [Loop ops])