DE
Size: a a a
DE
ID
M
{ ?dup { dup 1- @’ fact * } { 1 } cond } : fact 5 fact .
ID
ID
ID
M
DE
{ $cmp 0< } :less "once" "upon" "a" "time" "there" "lived" "a" "kitten" 8 list dup .l cr sort .l cr
(3 1 4 1 5 9 2 6 5)
(1 1 2 3 4 5 5 6 9)
("once" "upon" "a" "time" "there" "lived" "a" "kitten")
("a" "a" "kitten" "lived" "once" "there" "time" "upon")
ID
M
ID
M
M
M
MV
MV
M
M
MV