( Copyright PPC Paris 1986 )
: NDROP
DUP DEPTH 2- >
IF . ." Trop grand." " BEEP" BASICX ELSE 
SP@ 5+ DUP 5+ ROT 1- 5 * NMOVE> DROP THEN ;
: PICK>
1+ DUP PICK SWAP NDROP ;
: SORT
DEPTH 1- IF DEPTH 1+ 2 DO I PICK> 2DUP
MIN ROT ROT MAX LOOP >R MYSELF R> THEN ;