foo :: Int -> Int
foo x
  | x == 5 = 10
  | otherwise = 12

bar :: Int -> Int
bar x
  | x == 5 =
    foo x
      + foo 10
  | x == 6 =
    foo x
      + foo 20
  | otherwise = foo 100