:EVEKT0
<BUILDS DUP ,
   1+ 1 DO 0 , LOOP DROP
DOES>
   DUP @
   ROT <
   IF ." HIBÁS INDEX:" DROP .
   ELSE SWAP 2* +
   ENDIF ;