set I0, P0[1]
            new P1, .Array
            set P1, 8193

N_LOOP:        unless I0, N_DONE
            set I1, 0

            set I2, 0
INIT_ARRAY:    set P1[I2], 1
            inc I2
            lt I2, 8192, INIT_ARRAY

            set I2, 2
I_LOOP:        ge I2, 8192, I_DONE
            set I4, P1[I2]
            unless I4, I_NEXT
            
            set I3, I2
            add I3, I2
J_LOOP:        ge I3, 8192, J_DONE
            set P1[I3], 0
            add I3, I2
            branch J_LOOP
J_DONE:        inc I1

            
I_NEXT:        inc I2
            branch I_LOOP

I_DONE:        dec I0
            branch N_LOOP

N_DONE:        print "Count: "
            print I1
            print "\n"
            end