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