1withGuards :: Int -> Int 2withGuards x = 3 case x of 4 x | x > 10 -> 5 foo + 6 bar 7 x | x > 5 -> 10 8 _ -> 20 9 10case x of 11 '-' | not isUrl -> case xs of 12 _ -> emitc '-' 13 '*' | not isUrl -> 14 case xs of 15 _ -> emitc '*' 16