* Программа вводит одну строку символов, * разбивает ее на слова, * переставляет в обратном порядке буквы в каждом слове, * полученное печатает * $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; = ; }