*   Программа вводит одну строку символов,
*   разбивает ее на слова,
*   переставляет в обратном порядке буквы в каждом слове,
*   полученное печатает
*

$EXTRN CARD , PROUT ;
$ENTRY Go {
            = <Prout <Word <Card >>>;
          }

Word {
      e.1 ' ' e.2 = <Inverse e.1> ' ' <Word e.2>;
      e.1         = <Inverse e.1>;
     }

Inverse {
         s.a e.1 = <Inverse e.1> s.a;
                 = ;
        }