28 lines
641 B
Plaintext
28 lines
641 B
Plaintext
(FORM 0 random okay #f
|
|
()
|
|
|
|
(P #f_0 (c_1)
|
|
(LET* (((loop_2) (allocate 'single-set 'ptr))
|
|
(() (set-contents loop_2 'cell '0 '0 ^loop_3)))
|
|
(jump 0 (contents loop_2 'cell '0 '0) '5 '1)))
|
|
|
|
(J loop_3 (i_4 r_5)
|
|
(LET* (((c_6)* ^c_7))
|
|
(test 2 ^g_8 ^g_9 (less? '1 i_4))))
|
|
|
|
(C g_8 ()
|
|
(return 0 c_6 '#f))
|
|
|
|
(C g_9 ()
|
|
(return 0 c_6 '#t))
|
|
|
|
(C c_7 (v_10)
|
|
(test 2 ^g_11 ^g_12 v_10))
|
|
|
|
(C g_11 ()
|
|
(unknown-return 0 c_1 '1 r_5))
|
|
|
|
(C g_12 ()
|
|
(jump 0 (contents loop_2 'cell '0 '0) (subtract i_4 '1) (multiply i_4 r_5))))
|
|
|