uniqueWord l
|l==[] =[]
|elem (head l) (tail l) = uniqueWord (tail l)
|otherwise = (head l):(uniqueWord (tail l))
memCount x l
|l==[] =0
|x==(head l) = 1+(memCount x (tail l))
|otherwise = memCount x (tail l)
wordCounter u l
|u==[] =[]
|otherwise = ((head u),(memCount (head u) l)): (wordCounter (tail u) l)
u=["aaa","bbb"]
l=["aaa","aaa","bb","bbb"]
wordCounter1 u l
| ((head u),(memCount (head u) l)): (wordCounter1 (tail u) l)