diff --git a/real/smallpt/smallpt.hs b/real/smallpt/smallpt.hs
index 8201595ec4d3148ad0f8fb2be6015f279a8ed719..9c910752cfbf638e5d7120d22aa93da0289dd6b0 100644
--- a/real/smallpt/smallpt.hs
+++ b/real/smallpt/smallpt.hs
@@ -222,5 +222,4 @@ main = do
   vec <- smallpt w h samples
   if mode == "img"
     then writeImage stdout (w, h) vec
-    else  hPutStr stdout (hashImage vec)
-
+    else hPutStr stdout (printf "%.6f" (read (hashImage vec) :: Double))
diff --git a/real/smallpt/smallpt.stdout b/real/smallpt/smallpt.stdout
index 57ea5394fbc077045c0a94fa2a86105003291919..a877e7ffbc01a32e5d9eda9e67594ec890b089f5 100644
--- a/real/smallpt/smallpt.stdout
+++ b/real/smallpt/smallpt.stdout
@@ -1 +1 @@
-42517.5950581666
\ No newline at end of file
+42517.595058