Print the sum of two arguments

[my-scheme.git] / app / Main.hs

module Main where
import System.Environment

main :: IO ()
main = do
    args <- getArgs
    putStrLn (show (read (args !! 0) + read (args !! 1)))