:: uniqueIP ( seq -- uniqueseq ) { } :> collection! { } :> uniques! seq [ :> item item getIP :> ip ip uniques member? [ uniques ip suffix :> uniques! collection item suffix :> collection! ] unless ] each collection ;