%BEGIN
%INTEGER START,FIN
%INTEGER I
SELECTOUTPUT(1)
READ(START)
I = START+X'28'
FIN=START+X'2000'-2
%CYCLE
   %WHILE I<FIN %CYCLE
      %EXIT %IF BYTEINTEGER(I)='/'
      I=I+1
   %REPEAT
   %EXIT %IF I>=FIN
   I=I-3
   PRINTSTRING(STRING(I));NEWLINE
   I=I+BYTEINTEGER(I)
%REPEAT
%ENDOFPROGRAM