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