RosettaCodeData/Task/Isqrt-integer-square-root-of-X/S-BASIC/isqrt-integer-square-root-of-x-2.basic

function isqrt(x = integer) = integer
   var x0, x1 = integer
   x1 = x
   repeat
      begin
         x0 = x1
         x1 = (x0 + x / x0) / 2
      end
   until x1 >= x0
end = x0