RosettaCodeData/Task/Program-name/Haskell/program-name.hs

import System (getProgName)

main :: IO ()
main = getProgName >>= putStrLn . ("Program: " ++)