oddc xs= [x | x <- xs, odd (length (filter (==x) xs))]

rema ([],y)=y rema (x:xs,y)=if (x elem xs) then rema(xs,y) else rema(xs,x:y)

main=do let a=oddc [1,1,2,3,3,3] print(a) print(rema(a,[]))