:: isort-c ( a -- ) [let | i! [ f ] j! [ 1 ] key! [ f ] | [ j a length < ] [ j a nth key! j 1- i! [ { [ i 0 >= ] [ i a nth key <=> +gt+ = ] } 0&& ] [ i a nth i 1+ a set-nth i 1- i! ] while key i 1+ a set-nth j 1+ j! ] while ] ; inline