import System.Environment

func :: [String] -> IO()
func args = do
  print . head $ args

main :: IO ()
main = do
  args <- getArgs
  if not (null args)
    then
      func args
    else
      putStrLn "Missing argument"