main :: IO ()
main = do
    args <- getArgs
    print args
    mapM_ putStrLn $ fmap readExpr args
main :: IO ()
main = do
    args <- getArgs
    print args
    mapM_ putStrLn $ fmap readExpr args
main = do
    args <- getArgs
    print args
    mapM_ putStrLn $ fmap readExpr args