main :: IO ()
main = do
    l <- getArgs
    preludeString <- readFile $ case l of
      [] -> "Haskell/ProgramaticaPrelude.hs"
      h : _ -> h
    str <- getContents
    putStrLn $ str ++ "\n " ++ show preludeString
main :: IO ()
main = do
    l <- getArgs
    preludeString <- readFile $ case l of
      [] -> "Haskell/ProgramaticaPrelude.hs"
      h : _ -> h
    str <- getContents
    putStrLn $ str ++ "\n " ++ show preludeString
main = do
    l <- getArgs
    preludeString <- readFile $ case l of
      [] -> "Haskell/ProgramaticaPrelude.hs"
      h : _ -> h
    str <- getContents
    putStrLn $ str ++ "\n " ++ show preludeString