%%HP: T(1)A(D)F(.);

"INTRO {LISTA} E
INTERVALO"
"" INPUT OBJ  D A
B
   " looking" 4
CLLCD DISP { } 0 1
D SIZE
    FOR I 'D' I GET
DUP A > SWAP B <
AND
      IF
      THEN 1 + SWAP
'D' I GET + SWAP
      END
    NEXT
  

