-- Dada a função abaixo
fun :: (Int) -> Int
fun x | x < 10    = 1
      | x < 5     = 2
      | otherwise = 3
-
fun :: (Int) -> Int
fun x | x < 10    = 1
      | x < 5     = 2
      | otherwise = 3
fun x | x < 10    = 1
      | x < 5     = 2
      | otherwise = 3