foo :: Int -> Int
foo x = case x of
  5 -> 10
  _ -> 12

bar :: Int -> Int
bar x =
  case x of
    5 -> if x > 5
           then 10 else 12
    _ -> 12

baz :: Int -> Int
baz x = case x of 5 -> 10
                  _ -> 12

quux :: Int -> Int
quux x = case x of
  x -> x

withGuards :: Int -> Int
withGuards x =
  case x of
    x | x > 10 ->
      foo +
        bar
    x | x > 5 -> 10
    _ -> 20

funnyComment = -- comment
  case () of
    () -> ()