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