$ENTRY RPN = <Rpn>;

Rpn  { = <EOF *STDIN>:
  { T =;
    F = <Tks <Wds <READ_LINE>' '>>: {=; ex = <PRINTLN <Eval ex>>}
      = <Rpn> } };

Wds  {      = ;
     ' ' er = <Wds er>;
  ew ' ' er = (ew) <Wds er> };

Tks  {=;  (et) er = <Tok et> <Tks er> };

Tok  {
  '+' = *"+";  '-' = *"-";  '*' = *"*";  '/' = *"/";
  '+' en = <Num en>;
  '-' en = <REAL 0> <Num en> *SUB;
      en = <Num en> };

Eval  {
  sn, <MODE sn>:REAL = sn;
  eh sa sb so er, <MODE sa><MODE sb><MODE so>: REAL REAL FUNC
     = <Eval eh <so sa sb> er>;
  ea = <PRINTLN 'error'> };

Num  {en = <Num2 <Num1 0 () en>>};

Num1  {
  sc (en) sd er, <TYPE sd>: 'D' sd = <Num1 <+ 1 sc> (en sd) er>;
  ea = ea };

Num2  {
    sc (en) '.' ef = <Num3 <Num1 0 (en) ef>>;
    sc () ea       = ();
    sc (en)        = <REAL <NUMB en>>;
    sc (en) ea     = () };

Num3  {sc (sd en) = </ <REAL <NUMB sd en>> <POW sc 10>>; ea = ()};