main :: IO ()
main = forever $ do
        input <- getLine
        putStrLn $ "> " ++ show (manyStep $ fst $ (parse parseExpr input)!!0)
main :: IO ()
main = forever $ do
        input <- getLine
        putStrLn $ "> " ++ show (manyStep $ fst $ (parse parseExpr input)!!0)
main = forever $ do
        input <- getLine
        putStrLn $ "> " ++ show (manyStep $ fst $ (parse parseExpr input)!!0)