.method ricormul (j,k)
    LDC_W OBJREF
    ILOAD J
    ILOAD K
    BIPUSH 1
    ISUB
    DUP
    ISTORE K
    IFEQ End
    LDC_W OBJREF
    ILOAD J
    ILOAD K
    INVOKEVIRTUAL ricormul
    INVOKEVIRTUAL add
End:IRETURN
.end-method

[Giorgio Stampa]