1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE PatternGuards #-} module M where f | Just x <- undefined, let y = x, undefined x y = ()