! walk thru list and for each item compare to items in uniques list ! if not in list list, add compare value and item to list ! when done, should have one-to-one corresponding lists, return the collected items :: uniqueIP ( seq -- uniqueseq ) V{ } :> collection! V{ } :> uniques! seq [ :> item item getIP :> ip ip uniques member? [ uniques ip suffix! :> uniques collection item suffix! :> collection ] unless ] each collection ;