Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/layout/case/Main.hs
main = do x <- return Nothing case x of Nothing -> print x Just y -> print (y :: Char)
