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()))