link sort # for isort
procedure main()
n := 13
every a := [] & put(a, n to 1 by -1)
writes("before sort:") ; every writes(" ",!a) ; write()
a := isort(a,string)
writes("after sort: ") ; every writes(" ",!a) ; write()
end