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