[ 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)