import "Prelude"

main :: Double -> Double
main m = loop 1 0
  where
    loop x cur = if x > m
                 then cur
                 else loop (x+1) (cur + 1 / x)