-import "Prelude"\r
-\r
-main :: Double -> Double\r
-main m = loop 1 0\r
- where\r
- loop x cur = if x > m\r
- then cur\r
+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)
\ No newline at end of file