OPEN "juesu.in" FOR INPUT AS #1
OPEN "juesu.out" FOR OUTPUT AS #2
INPUT #1, a, b
FOR i = a TO b
  f = 1
  FOR j = 2 TO INT(SQR(i))
    IF i MOD j = 0 THEN f = 0: EXIT FOR
  NEXT j
  b$ = ""
  IF f = 1 THEN
    a$ = MID$(STR$(i), 2)
    l = LEN(a$)
    FOR j = 1 TO l
      b$ = MID$(a$, j, 1) + b$
    NEXT j
    c = VAL(b$)
    t = 1
    FOR j = 2 TO INT(SQR(c))
      IF c MOD j = 0 THEN t = 0
    NEXT j
    IF t = 1 THEN PRINT #2, i;
  END IF
NEXT i
CLOSE #1, #2
END