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

        set P1, I0
        set P2, I0
        dec I0
    
        set I1, 0
        set I2, 1
X_LOOP:    gt I1, I0, X_DONE
        set P1[I1], I2
        inc I1
        inc I2
        branch X_LOOP

X_DONE:
        set I1, 0
Y_LOOP:    gt I1, 999, Y_DONE

        set I2, I0
Z_LOOP:    lt I2, 0, Z_DONE
        set I3, P2[I2]
        set I4, P1[I2]
        add I3, I4
        set P2[I2], I3
        dec I2
        branch Z_LOOP
Z_DONE:
        inc I1
        branch Y_LOOP
Y_DONE:
        set I1, P2[0]
        print I1
        print " "
        set I1, P2[I0]
        print I1
        print "\n"
        end