$k=<>; print $k==0?atan2(0,-1)**2/6:do{$x+=1/$_ for 1..$k;$x/$k}