Just a little add to may previous mail.
The solution I've found from myself is:
 
subset :: [String] -> [String] -> Bool
subset xs ys = and [elem x ys | x <- xs]
 
My question is if exists a more elegant way to do that.
 
Luca. 

---

Do you want a Hotmail account? Sign-up now - Free