+lt+ = [ n 1- seq nth n seq set-nth-unsafe n 1- seq key insert ] [ key n seq set-nth ] if ] if ; inline recursive PRIVATE> : insertion-sort ( seq -- ) [ length ] keep [ 2dup nth insert ] curry each ; inline