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