progMessage :: String -> IO ()
progMessage msg = do
    prog <- getProgName
    putStr $ intercalate prog $ parts '$' msg
progMessage :: String -> IO ()
progMessage msg = do
    prog <- getProgName
    putStr $ intercalate prog $ parts '$' msg
progMessage msg = do
    prog <- getProgName
    putStr $ intercalate prog $ parts '$' msg