3 lines
103 B
Plaintext
3 lines
103 B
Plaintext
k=1000 a=(5+:dg)*k b=4*k :w1=:gd*((:r0+:r2+:r3+:r6+:r7+:ra*:dg)<a)
|
|
:w2=:gd*((:r1+:r2+:r4+:r5)<b) goto1
|