linsearch x xs = fold (||) False (map (:x
