MPL Bytecode Compiler Code

15 lines (11 with data), 358 Bytes

+LIBHDR

IS.PRIME(N;P) [N#2==0::N#3==0?=0;P=1;P*P<N@N#(P+=4)==0::N#(P+=2)==0?=0;1]
REVERSE(N;R) [R=0;N@[R=R*10+N#10;N/=10];R]
IS.EMIRP(N;R) [R=REVERSE(N);R!=N&&IS.PRIME(N)&&IS.PRIME(R)]

MAIN(;X,C) [
  X=11;C=0;C<20@[IS.EMIRP(X)?[WRITEF(" %N",X);++C];X+=2];
  NEWLINE();
  X=7701;X<8000@[IS.EMIRP(X)?WRITEF(" %N", X);X+=2];
  NEWLINE();
  0
]