%%HP: T(3)A(D)F(.);
\<< DUP "\<)" POS DUP
  IF
  THEN RCLF -19 SF
-16 SF 3 ROLLD DUP2
1 - 1 SWAP SUB OBJ\->
3 ROLLD 2 PICK SIZE
SWAP 1 + SWAP SUB
OBJ\-> \->V2 SWAP STOF
  ELSE DROP OBJ\->
  END
\>>
