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