Advertisement
chemoelectric

It is obvious what this program does, of course.

Apr 1st, 2023
2,011
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 33.41 KB | Source Code | 0 0
  1. (define (start-here stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  2.   (letrec
  3.       ( ;; Mutual recursion.
  4.        (kont0
  5.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  6.           (let ((stack (cons 420 stack)))
  7.             (kont5 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  8.        (kont5
  9.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  10.           (let ((x (car stack))
  11.                 (stack (cdr stack)))
  12.             (let ((stack (cons (- 0 x) stack)))
  13.               (kont6 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))))
  14.        (kont6
  15.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  16.           (let ((var0 (car stack))
  17.                 (stack (cdr stack)))
  18.             (kont11 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  19.        (kont11
  20.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  21.           (let ((stack (cons 300 stack)))
  22.             (kont16 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  23.        (kont16
  24.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  25.           (let ((var1 (car stack))
  26.                 (stack (cdr stack)))
  27.             (kont21 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  28.        (kont21
  29.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  30.           (let ((stack (cons 300 stack)))
  31.             (kont26 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  32.        (kont26
  33.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  34.           (let ((var2 (car stack))
  35.                 (stack (cdr stack)))
  36.             (kont31 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  37.        (kont31
  38.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  39.           (let ((stack (cons 300 stack)))
  40.             (kont36 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  41.        (kont36
  42.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  43.           (let ((x (car stack))
  44.                 (stack (cdr stack)))
  45.             (let ((stack (cons (- 0 x) stack)))
  46.               (kont37 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))))
  47.        (kont37
  48.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  49.           (let ((var3 (car stack))
  50.                 (stack (cdr stack)))
  51.             (kont42 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  52.        (kont42
  53.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  54.           (let ((stack (cons 7 stack)))
  55.             (kont47 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  56.        (kont47
  57.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  58.           (let ((var4 (car stack))
  59.                 (stack (cdr stack)))
  60.             (kont52 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  61.        (kont52
  62.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  63.           (let ((stack (cons 15 stack)))
  64.             (kont57 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  65.        (kont57
  66.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  67.           (let ((var5 (car stack))
  68.                 (stack (cdr stack)))
  69.             (kont62 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  70.        (kont62
  71.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  72.           (let ((stack (cons 200 stack)))
  73.             (kont67 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  74.        (kont67
  75.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  76.           (let ((var6 (car stack))
  77.                 (stack (cdr stack)))
  78.             (kont72 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  79.        (kont72
  80.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  81.           (let ((stack (cons var2 stack)))
  82.             (kont77 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  83.        (kont77
  84.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  85.           (let ((var7 (car stack))
  86.                 (stack (cdr stack)))
  87.             (kont82 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  88.        (kont82
  89.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  90.           (let ((stack (cons var7 stack)))
  91.             (kont87 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  92.        (kont87
  93.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  94.           (let ((stack (cons var3 stack)))
  95.             (kont92 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  96.        (kont92
  97.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  98.           (let ((y (car stack))
  99.                 (stack (cdr stack)))
  100.             (let ((x (car stack))
  101.                   (stack (cdr stack)))
  102.               (let ((stack (cons (if (> x y) 1 0) stack)))
  103.                 (kont93 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  104.        (kont93
  105.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  106.           (let ((x (car stack))
  107.                 (stack (cdr stack)))
  108.             (if (zero? x)
  109.                 (kont423 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  110.                 (kont98 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))))
  111.        (kont98
  112.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  113.           (let ((stack (cons var0 stack)))
  114.             (kont103 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  115.        (kont103
  116.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  117.           (let ((var8 (car stack))
  118.                 (stack (cdr stack)))
  119.             (kont108 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  120.        (kont108
  121.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  122.           (let ((stack (cons var8 stack)))
  123.             (kont113 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  124.        (kont113
  125.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  126.           (let ((stack (cons var1 stack)))
  127.             (kont118 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  128.        (kont118
  129.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  130.           (let ((y (car stack))
  131.                 (stack (cdr stack)))
  132.             (let ((x (car stack))
  133.                   (stack (cdr stack)))
  134.               (let ((stack (cons (if (< x y) 1 0) stack)))
  135.                 (kont119 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  136.        (kont119
  137.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  138.           (let ((x (car stack))
  139.                 (stack (cdr stack)))
  140.             (if (zero? x)
  141.                 (kont396 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  142.                 (kont124 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))))
  143.        (kont124
  144.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  145.           (let ((stack (cons 0 stack)))
  146.             (kont129 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  147.        (kont129
  148.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  149.           (let ((var9 (car stack))
  150.                 (stack (cdr stack)))
  151.             (kont134 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  152.        (kont134
  153.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  154.           (let ((stack (cons 0 stack)))
  155.             (kont139 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  156.        (kont139
  157.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  158.           (let ((var10 (car stack))
  159.                 (stack (cdr stack)))
  160.             (kont144 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  161.        (kont144
  162.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  163.           (let ((stack (cons 32 stack)))
  164.             (kont149 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  165.        (kont149
  166.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  167.           (let ((var11 (car stack))
  168.                 (stack (cdr stack)))
  169.             (kont154 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  170.        (kont154
  171.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  172.           (let ((stack (cons 0 stack)))
  173.             (kont159 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  174.        (kont159
  175.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  176.           (let ((var12 (car stack))
  177.                 (stack (cdr stack)))
  178.             (kont164 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  179.        (kont164
  180.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  181.           (let ((stack (cons var12 stack)))
  182.             (kont169 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  183.        (kont169
  184.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  185.           (let ((stack (cons var6 stack)))
  186.             (kont174 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  187.        (kont174
  188.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  189.           (let ((y (car stack))
  190.                 (stack (cdr stack)))
  191.             (let ((x (car stack))
  192.                   (stack (cdr stack)))
  193.               (let ((stack (cons (if (< x y) 1 0) stack)))
  194.                 (kont175 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  195.        (kont175
  196.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  197.           (let ((x (car stack))
  198.                 (stack (cdr stack)))
  199.             (if (zero? x)
  200.                 (kont369 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  201.                 (kont180 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))))
  202.        (kont180
  203.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  204.           (let ((stack (cons var10 stack)))
  205.             (kont185 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  206.        (kont185
  207.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  208.           (let ((stack (cons var10 stack)))
  209.             (kont190 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  210.        (kont190
  211.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  212.           (let ((y (car stack))
  213.                 (stack (cdr stack)))
  214.             (let ((x (car stack))
  215.                   (stack (cdr stack)))
  216.               (let ((stack (cons (* x y) stack)))
  217.                 (kont191 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  218.        (kont191
  219.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  220.           (let ((stack (cons 200 stack)))
  221.             (kont196 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  222.        (kont196
  223.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  224.           (let ((y (car stack))
  225.                 (stack (cdr stack)))
  226.             (let ((x (car stack))
  227.                   (stack (cdr stack)))
  228.               (let ((stack (cons (quotient x y) stack)))
  229.                 (kont197 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  230.        (kont197
  231.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  232.           (let ((var13 (car stack))
  233.                 (stack (cdr stack)))
  234.             (kont202 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  235.        (kont202
  236.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  237.           (let ((stack (cons var9 stack)))
  238.             (kont207 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  239.        (kont207
  240.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  241.           (let ((stack (cons var9 stack)))
  242.             (kont212 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  243.        (kont212
  244.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  245.           (let ((y (car stack))
  246.                 (stack (cdr stack)))
  247.             (let ((x (car stack))
  248.                   (stack (cdr stack)))
  249.               (let ((stack (cons (* x y) stack)))
  250.                 (kont213 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  251.        (kont213
  252.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  253.           (let ((stack (cons 200 stack)))
  254.             (kont218 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  255.        (kont218
  256.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  257.           (let ((y (car stack))
  258.                 (stack (cdr stack)))
  259.             (let ((x (car stack))
  260.                   (stack (cdr stack)))
  261.               (let ((stack (cons (quotient x y) stack)))
  262.                 (kont219 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  263.        (kont219
  264.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  265.           (let ((var14 (car stack))
  266.                 (stack (cdr stack)))
  267.             (kont224 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  268.        (kont224
  269.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  270.           (let ((stack (cons var13 stack)))
  271.             (kont229 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  272.        (kont229
  273.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  274.           (let ((stack (cons var14 stack)))
  275.             (kont234 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  276.        (kont234
  277.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  278.           (let ((y (car stack))
  279.                 (stack (cdr stack)))
  280.             (let ((x (car stack))
  281.                   (stack (cdr stack)))
  282.               (let ((stack (cons (+ x y) stack)))
  283.                 (kont235 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  284.        (kont235
  285.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  286.           (let ((stack (cons 800 stack)))
  287.             (kont240 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  288.        (kont240
  289.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  290.           (let ((y (car stack))
  291.                 (stack (cdr stack)))
  292.             (let ((x (car stack))
  293.                   (stack (cdr stack)))
  294.               (let ((stack (cons (if (> x y) 1 0) stack)))
  295.                 (kont241 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  296.        (kont241
  297.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  298.           (let ((x (car stack))
  299.                 (stack (cdr stack)))
  300.             (if (zero? x)
  301.                 (kont298 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  302.                 (kont246 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))))
  303.        (kont246
  304.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  305.           (let ((stack (cons 48 stack)))
  306.             (kont251 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  307.        (kont251
  308.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  309.           (let ((stack (cons var12 stack)))
  310.             (kont256 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  311.        (kont256
  312.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  313.           (let ((y (car stack))
  314.                 (stack (cdr stack)))
  315.             (let ((x (car stack))
  316.                   (stack (cdr stack)))
  317.               (let ((stack (cons (+ x y) stack)))
  318.                 (kont257 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  319.        (kont257
  320.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  321.           (let ((var11 (car stack))
  322.                 (stack (cdr stack)))
  323.             (kont262 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  324.        (kont262
  325.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  326.           (let ((stack (cons var12 stack)))
  327.             (kont267 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  328.        (kont267
  329.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  330.           (let ((stack (cons 9 stack)))
  331.             (kont272 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  332.        (kont272
  333.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  334.           (let ((y (car stack))
  335.                 (stack (cdr stack)))
  336.             (let ((x (car stack))
  337.                   (stack (cdr stack)))
  338.               (let ((stack (cons (if (> x y) 1 0) stack)))
  339.                 (kont273 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  340.        (kont273
  341.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  342.           (let ((x (car stack))
  343.                 (stack (cdr stack)))
  344.             (if (zero? x)
  345.                 (kont288 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  346.                 (kont278 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))))
  347.        (kont278
  348.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  349.           (let ((stack (cons 64 stack)))
  350.             (kont283 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  351.        (kont283
  352.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  353.           (let ((var11 (car stack))
  354.                 (stack (cdr stack)))
  355.             (kont288 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  356.        (kont288
  357.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  358.           (let ((stack (cons var6 stack)))
  359.             (kont293 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  360.        (kont293
  361.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  362.           (let ((var12 (car stack))
  363.                 (stack (cdr stack)))
  364.             (kont298 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  365.        (kont298
  366.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  367.           (let ((stack (cons var10 stack)))
  368.             (kont303 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  369.        (kont303
  370.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  371.           (let ((stack (cons var9 stack)))
  372.             (kont308 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  373.        (kont308
  374.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  375.           (let ((y (car stack))
  376.                 (stack (cdr stack)))
  377.             (let ((x (car stack))
  378.                   (stack (cdr stack)))
  379.               (let ((stack (cons (* x y) stack)))
  380.                 (kont309 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  381.        (kont309
  382.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  383.           (let ((stack (cons 100 stack)))
  384.             (kont314 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  385.        (kont314
  386.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  387.           (let ((y (car stack))
  388.                 (stack (cdr stack)))
  389.             (let ((x (car stack))
  390.                   (stack (cdr stack)))
  391.               (let ((stack (cons (quotient x y) stack)))
  392.                 (kont315 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  393.        (kont315
  394.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  395.           (let ((stack (cons var7 stack)))
  396.             (kont320 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  397.        (kont320
  398.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  399.           (let ((y (car stack))
  400.                 (stack (cdr stack)))
  401.             (let ((x (car stack))
  402.                   (stack (cdr stack)))
  403.               (let ((stack (cons (+ x y) stack)))
  404.                 (kont321 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  405.        (kont321
  406.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  407.           (let ((var9 (car stack))
  408.                 (stack (cdr stack)))
  409.             (kont326 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  410.        (kont326
  411.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  412.           (let ((stack (cons var13 stack)))
  413.             (kont331 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  414.        (kont331
  415.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  416.           (let ((stack (cons var14 stack)))
  417.             (kont336 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  418.        (kont336
  419.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  420.           (let ((y (car stack))
  421.                 (stack (cdr stack)))
  422.             (let ((x (car stack))
  423.                   (stack (cdr stack)))
  424.               (let ((stack (cons (- x y) stack)))
  425.                 (kont337 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  426.        (kont337
  427.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  428.           (let ((stack (cons var8 stack)))
  429.             (kont342 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  430.        (kont342
  431.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  432.           (let ((y (car stack))
  433.                 (stack (cdr stack)))
  434.             (let ((x (car stack))
  435.                   (stack (cdr stack)))
  436.               (let ((stack (cons (+ x y) stack)))
  437.                 (kont343 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  438.        (kont343
  439.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  440.           (let ((var10 (car stack))
  441.                 (stack (cdr stack)))
  442.             (kont348 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  443.        (kont348
  444.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  445.           (let ((stack (cons var12 stack)))
  446.             (kont353 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  447.        (kont353
  448.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  449.           (let ((stack (cons 1 stack)))
  450.             (kont358 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  451.        (kont358
  452.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  453.           (let ((y (car stack))
  454.                 (stack (cdr stack)))
  455.             (let ((x (car stack))
  456.                   (stack (cdr stack)))
  457.               (let ((stack (cons (+ x y) stack)))
  458.                 (kont359 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  459.        (kont359
  460.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  461.           (let ((var12 (car stack))
  462.                 (stack (cdr stack)))
  463.             (kont364 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  464.        (kont364
  465.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  466.           (kont164 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))
  467.        (kont369
  468.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  469.           (let ((stack (cons var11 stack)))
  470.             (kont374 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  471.        (kont374
  472.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  473.           (let ((x (car stack))
  474.                 (stack (cdr stack)))
  475.             (display (make-string 1 (integer->char x)))
  476.             (kont375 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  477.        (kont375
  478.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  479.           (let ((stack (cons var8 stack)))
  480.             (kont380 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  481.        (kont380
  482.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  483.           (let ((stack (cons var4 stack)))
  484.             (kont385 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  485.        (kont385
  486.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  487.           (let ((y (car stack))
  488.                 (stack (cdr stack)))
  489.             (let ((x (car stack))
  490.                   (stack (cdr stack)))
  491.               (let ((stack (cons (+ x y) stack)))
  492.                 (kont386 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  493.        (kont386
  494.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  495.           (let ((var8 (car stack))
  496.                 (stack (cdr stack)))
  497.             (kont391 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  498.        (kont391
  499.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  500.           (kont108 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))
  501.        (kont396
  502.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  503.           (let ((stack (cons 10 stack)))
  504.             (kont401 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  505.        (kont401
  506.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  507.           (let ((x (car stack))
  508.                 (stack (cdr stack)))
  509.             (display (make-string 1 (integer->char x)))
  510.             (kont402 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  511.        (kont402
  512.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  513.           (let ((stack (cons var7 stack)))
  514.             (kont407 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  515.        (kont407
  516.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  517.           (let ((stack (cons var5 stack)))
  518.             (kont412 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  519.        (kont412
  520.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  521.           (let ((y (car stack))
  522.                 (stack (cdr stack)))
  523.             (let ((x (car stack))
  524.                   (stack (cdr stack)))
  525.               (let ((stack (cons (- x y) stack)))
  526.                 (kont413 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))))
  527.        (kont413
  528.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  529.           (let ((var7 (car stack))
  530.                 (stack (cdr stack)))
  531.             (kont418 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14))))
  532.        (kont418
  533.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  534.           (kont82 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))
  535.        (kont423
  536.         (lambda (stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  537.           'arbitrary-return-value-for-halt))
  538.        )
  539.     (kont0 stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)))
  540.  
  541. (define stack '())
  542. (define var0 0)
  543. (define var1 0)
  544. (define var2 0)
  545. (define var3 0)
  546. (define var4 0)
  547. (define var5 0)
  548. (define var6 0)
  549. (define var7 0)
  550. (define var8 0)
  551. (define var9 0)
  552. (define var10 0)
  553. (define var11 0)
  554. (define var12 0)
  555. (define var13 0)
  556. (define var14 0)
  557.  
  558. (start-here stack var0 var1 var2 var3 var4 var5 var6 var7 var8 var9 var10 var11 var12 var13 var14)
  559. (display "")
  560.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement