listHas4 : Bool
listHas4 = elem 4 (3 ∷ 2 ∷ 5 ∷ 4 ∷ []) -- true