%%HP: T(3)A(R)F(.);
\<< 0 SWAP + \-> p
  \<< 0 p p SIZE 1 -
GET + SIZE p p SIZE
1 - GET SIZE
    IF ==
    THEN 0 p SIZE 1
- 0
      FOR i p
REVLIST i 1 + GET
'x' i ^ * + -1
      STEP
    ELSE p LIST\-> 2
- \-> br pot sz
      \<< sz \->LIST
Lesen br Lesen pot
^ /
      \>>
    END
  \>>
\>>
