Ticket #7075: s4.hs

File s4.hs, 142 bytes (added by garlicbone, 3 years ago)
Line 
1import System.Environment
2 
3-- | 'main' runs the main program
4main :: IO ()
5main = getArgs >>= print . haqify . head
6 
7haqify s = "Haq! " ++ s