package Sqrt is

   function Isqrt(N: Natural) return Natural;
   --# return R => R * R <= N and (R + 1) * (R + 1) > N;

end Sqrt;