[ previous | index | next ]


(let*
  ((.T14
    (lambda (.n|1 .m|1)
      (define .loop|9
        (lambda (.m|3|28 .n|10 .l|10)
          (let ((.T2 (zero? .n|10)))
            (if .T2
                .l|10
                (let* ((.T5 (- .n|10 1))
                       (.T7 (random .m|3|28))
                       (.REG2 .T5)
                       (.REG3 (cons .T7 .l|10)))
                  (.loop|9 .m|3|28 .REG2 .REG3))))))
      (let* ((.REG1 .m|1) (.REG2 .n|1))
        (.loop|9 .REG1 .REG2 '()))))
   (.T15 (set! rgen .T14)))
  'rgen)