0 x;
0 y;
_ q;
100'[
  q~ ( 2 x~ * + x; q;
  2 y~ * y;
  x~ 1000000000000000 % tx;
  x~ tx~ -+ 1000000000000000 / y~ + y;
  tx~ x;
] 
y~`
x~`