MUDDLE/revtes.4

   1 <DEFINE REV
   2  <ACTOR (EXP "AUX" FRONT BACK)
   3    <WHEN (() .EXP)
   4          ((_FRONT !_BACK)
   5           <BE <IS? (!<REV .BACK> ?FRONT) .EXP>>)   >>>
   6
   7
   8 <DEFINE PAL
   9  <ACTOR ("AUX" END)
  10    <VEL () (_END) (_END !<PAL> ?END)>   >>\f\ 3\f