main :: IO ()
main = do
  (expr:_) <- getArgs
  putStrLn (readExpr expr)
main :: IO ()
main = do
  (expr:_) <- getArgs
  putStrLn (readExpr expr)
main = do
  (expr:_) <- getArgs
  putStrLn (readExpr expr)