1 2 3 4 5 6 7 8 9 10
module M where -- GHC's Lexer.x had a piece of code like this f = if True then do case () of () -> () else ()