(do((s(read-line)(remove #\ (set'*(write-line s)):count 1)))((eq * s)))