uniqueOnly :: Eq a => [a] -> [a]
uniqueOnly [] = []
uniqueOnly (x:xs)
	| x `elem` xs = uniqueOnly xs
	| otherwise   = x : (uniqueOnly xs)