%%HP: T(1)A(G)F(,);
 "XA YA XB YB XP YP"
"" INPUT OBJ  XA YA
XB YB XP YP
   YB YA - XA XB -
XA NEG YB YA - * YB
XB XA - * +  A B C
     A XP * B YP * +
C + A 2 ^ B 2 ^ +  /
ABS
    
  
