import "Prelude"

main :: Integer -> Double
main m = sum [1/(fromInteger x) | x <- [1..m]]