module M where

f :: Char
f = let {x = 'a'} in x