diff --git a/source/src/BNFC/Backend/FSharp/CFtoFSharpPrinter.hs b/source/src/BNFC/Backend/FSharp/CFtoFSharpPrinter.hs
index d6741f7e..50e893d5 100644
--- a/source/src/BNFC/Backend/FSharp/CFtoFSharpPrinter.hs
+++ b/source/src/BNFC/Backend/FSharp/CFtoFSharpPrinter.hs
@@ -114,7 +114,7 @@ integerRule cf = unlines [
     ]
 
 doubleRule cf = unlines [
-    "let rec prtFloat (_:int) (f:float) : Doc = render (sprintf \"%.14f\" f)",
+    "let rec prtFloat (_:int) (f:float) : Doc = render (f.ToString().ToLower())",
     ifList cf (TokenCat catDouble),
     ""
     ]