: just-2+ [ dup second 2 < [ drop f ] when ] map harvest ; ! example: ! { "hi" "hi" "there" } count-dups just-2+ .