$0=K
$1=K*K
$1=$1+1
$2=1
$3=K
$4=$1+K
$4=9223372036/$4
while$1<65536
  $5=$0*$3
  $6=$0*$2
  $7=$2*$3
  $0=$0*$1
  $3=$1*$3
  $0=$0+$6
  $3=$3+$7
  $1=$1*$1
  $2=$2*$2
  $1=$1+$5
  $2=$2+$5
end
while$0<$4
  $5=$0*K
  $2=$2+$5
  $5=$1*K
  $3=$3+$5
  $5=$2*K
  $0=$0+$5
  $5=$3*K
  $1=$1+$5
end
$0=$0*N
$0=$0/$1
$0=$0+N
return$0