foo n = case n of 1 -> True -1 -> False bar n = case n of (-2, -2) -> (-2, -2)