Read two arguments from commandline

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

module Main where
import System.Environment

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