elem2.hs

elem' :: (Eq a) => a -> [a] -> Bool
elem' x xs = if head xs == x
                then
                    True
                else
                    if length xs == 1
                        then
                            False
                        else
                            elem' x (tail xs)