-1	#ip 2

     0	seti 123 0 5		r5 = 123;
L1:				do {
     1	bani 5 456 5			r5 &= 456
     2	eqri 5 72 5		}
     3	addr 5 2 2		while (r5 != 72);
     4	seti 0 0 2

     5	seti 0 3 5		r5 = 0;
L6:				do {
     6	bori 5 65536 3			r3 = r5 | 0x10000;
     7	seti 9010242 6 5		r5 = 9010242;
L8:					for (;;) {
     8	bani 3 255 1
     9	addr 5 1 5				r5 += (r3 & 0xff);
    10	bani 5 16777215 5			r5 &= 0xffffff;
    11	muli 5 65899 5				r5 *= 65899;
    12	bani 5 16777215 5			r5 &= 0xffffff;

    13	gtir 256 3 1				if (r3 < 0x100) break;
    14	addr 1 2 2
    15	addi 2 1 2
    16	seti 27 6 2

    17	seti 0 8 1				r3 /= 0x100;
L18:
    18	addi 1 1 4
    19	muli 4 256 4
 
    20	gtrr 4 3 4
    21	addr 4 2 2
    22	addi 2 1 2
    23	seti 25 5 2	
    24	addi 1 1 1
    25	seti 17 7 2
L25:
    26	setr 1 3 3
    27	seti 7 2 2			}
L28:
    28	eqrr 5 0 1
    29	addr 1 2 2		}
    30	seti 5 2 2		while (r5 != r0);