(define (rand-n n m) (cond ((zero? n) '()) ((= n 1) (list m)) (else (let ((r-m (random m))) (cons r-m (rand-n (1- n) (- m r-m)))))))
Private Wrap long lines
3 + 5 =