do.hs

import           System.Environment (getArgs, getProgName)

main1 :: IO ()
main1 = getArgs >>= \args ->
        getProgName >>= \progn ->
        print $ progn ++ " " ++ show args

main2 :: IO ()
main2 = do
    args <- getArgs
    progn <- getProgName
    print $ progn ++ " " ++ show args

main :: IO ()
main = do
    main1
    main2