$1=N/K      # $0,$1 := 0,(N/K);
$2=K*N      # $2,$3 := (K*N),(N*N);
$3=N*N
while$0<=$1 # while $0 <= $1:
  $4=$0+$1  #   $4 := ($0+$1)/2;
  $4=$4/2
  $5=$2+$4  #   $5 := (K*N+$4)*$4;
  $5=$5*$4
  if$5>$3   #   if $5 > N*N:
    $1=$4-1 #     $1 := $4 - 1;
  end       #   end
  if$5<$3   #   if $5 < N*N:
    $0=$4+1 #     $0 := $4 + 1;
  end       #   end
end         # end
$0=$1+N     # return ($1+N);
return$0