%%HP: T(3)A(D)F(.);
\<< \-> XO YO
  \<< XO SQ YO SQ + \v/
\-> L
    \<< XO L / ACOS
YO L / ASIN SIGN
DUP 0 ==
      IF
      THEN 1 +
      END * L
    \>>
  \>>
\>>
