import "Prelude"

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

main = f 100
--
5.187377517639621