procedure main(args) *args = 1 & n := integer(args[1]) | stop("argument to randsort must be 1 int") s := set() every insert(s, 1 to n) writes("(sort '(") while x := ?s do { writes(x, " ") delete(s, x) } write("))") end