n = 2, sum = 1
n = 3, sum = 5/2

##</code><code>##

   "for my $k (1 .. 0) {"
##</code><code>##

"Sumof(Num/Denom) for Num=(1..n) and Denom='(n..1)'[=>'n+1-Num']"