Blob


1 (accumulate append
2 nil
3 (map (lambda (i)
4 (map (lambda (j) (list i j))
5 (enumerate-interval 1 (- i 1))))
6 (enumerate-interval 1 n)))