(bind-func duplicates:[List{!a}*,List{!a}*]*
(lambda (lst)
(let ((dupes (list)))
(while (not (null? lst))
(if (not (null? (member (car lst) (cdr lst))))
(set! dupes (cons (car lst) dupes)))
(set! lst (cdr lst)))
(reverse dupes))))