%%HP: T(3)A(R)F(.);
\<<
  WHILE DUP2 - ABS .0000000001 >
  REPEAT
    DUP2 + 2. /
    UNROT * \v/
  END
  + 2. /
\>>