DEFINI fib x VT {
    SI x EST NVLLVS TVNC {
        REDI NVLLVS
    } ALVID SI x EST I TVNC {
        REDI I
    } ALVID {
        REDI ((INVOCA fib (x-II)) + (INVOCA fib (x-I)))
    }
}

DICE INVOCA fib (AVDI_NVMERVS)