hi.. i was just wondering if some body could give a simple equation for the following situation.other than recursion plz..

occurrences :: Eq a => a -> [a] -> [a]

--occurrences xs ys returns the number of times that xs occurs in ys

thanks