-import "Prelude"\r
-\r
-f :: Integer -> Double\r
-f m = sum [1/(fromInteger x) | x <- [1..m]]\r
-\r
-main = f 100\r
---\r
-5.187377517639621\r
+import "Prelude"
+
+f :: Integer -> Double
+f m = sum [1/(fromInteger x) | x <- [1..m]]
+
+main = f 100
+--
+5.187377517639621