%%HP: T(1)A(G)F(.);
 XSOL 3 RND  x
   "" 1 D 4 GET
    FOR   PRA60
    NEXT "END" +
   'RA' STO
   RA WR
   'REOUT' STO
REOUT EVAL

