: count-dups ( seq -- seq ) [ dup count-seq zip prune >array ] map ;