test.hs 209 B

12345678910
  1. sayHello :: String -> IO ()
  2. -- type aliasing - above is equivalent to:
  3. -- sayHello :: [Char] -> IO ()
  4. sayHello x =
  5. putStrLn ("Hello, " ++ x ++ "!")
  6. triple x = x * 3
  7. mult1 = x * y
  8. where x = 5
  9. y = 6