-- !!! Malformed pattern (arity)
module M where
f (Left) = error "foo"