;; -*- Mode: Irken -*-
(include "lib/core.scm")
(include "lib/pair.scm")
(include "lib/random.scm")
(srandom 314159)
(define nrandom
acc 0 -> acc
acc n -> (nrandom
(list:cons (random) acc)
(- n 1)))
(let ((rl (nrandom '() 100)))
(printn rl)
(printn (sort < rl)))