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