: (match-min) ( seq item -- min ) [ > ] curry filter dup empty? [ drop f ] [ first ] if ; : close-match ( seq1 seq2 -- seq3 ) [ swap [ (match-min) ] keep swap 2array ] curry map ;