uniq.ss

(define (uniq seq)
  (for/fold ([result '()])
      ([item seq])
      (cond
       ((null? result)
        (cons item result))
       ((equal? item (car result))
        result)
       (else
        (cons item result)))))