$x+=1/$_/@0for@0=1..<>;print@0?$x:1.644934