// $Source$
// $Revision$
// $Date$

$use Apply CppMangle Dos StdIO;


$func To-Rfp e = e;

To-Rfp symbol = <WriteLN <Cpp2Rfp symbol>>;


$func To-Cpp e = e;

To-Cpp expr = <PrintLN <Rfp2Cpp expr>>;


Main =
  {
    <Arg 1> : '-r' = &To-Rfp;
    &To-Cpp;
  } :: s.func,
  {
    <Read> $iter <Read> :: term,
      <Apply s.func term> : e,
      $fail;;
  };