+lt+ = ] } 3&& [ (insert) ] [ set-nth ] if ; inline recursive PRIVATE> : isort-factor ( seq -- ) ! quot is a transformation on elements [ length ] keep [ [ nth ] 2keep insert ] curry each ; inline