newclass P1, "FF"
    addattribute P1, 'r'
    find_type I12, "FF"
    new P2, I12

    set I10, 0
    set I11, 500000
loop:
    set I15, P2
    inc I10
    lt I10, I11, loop

    set I15, P2
    print I15
    set I15, P2
    print I15
    set I15, P2
    print I15
    print "\n"
    end
.namespace ["FF"]
.pcc_sub __init:
    classoffset I0, P2, 'FF'
    new P3, .PerlInt
    setattribute P2, I0, P3
    invoke P1
.pcc_sub __get_integer:
    classoffset I0, P2, 'FF'
    getattribute P3, P2, I0
    new P4, .PerlInt
    band P4, P3, 1
    inc P3
    if P4, r1
    set I5, 0
    invoke P1
r1: set I5, 1
    invoke P1