X-Git-Url: https://git.rmz.io/my-scheme.git/blobdiff_plain/0742b9f77a6fe617f929e21e143e35cd6e3d3ed6..7d2181062869beb269006a3f38e036873aff8a23:/app/Main.hs?ds=sidebyside diff --git a/app/Main.hs b/app/Main.hs index 16e4939..a938cf0 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -3,5 +3,5 @@ import System.Environment main :: IO () main = do - args <- getArgs - putStrLn (show (read (args !! 0) + read (args !! 1))) + args <- getLine + putStrLn (args)