$0=K*K
$0=$0+1
$1=K
$2=1
$3=1000000000/K
while$0<100000
  $4=$1*$1
  $5=$0+$2
  $1=$1*$5
  $0=$0*$0
  $2=$2*$2
  $0=$0+$4
  $2=$2+$4
end
while$0<$3
  $2=$0
  $4=$0*K
  $1=$4+$1
  $0=$1*K
  $0=$0+$2
end
$1=$1*N
$1=$1/$0
$1=$1+N
return$1