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