Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/float/show/Main.hs
import Numeric main = do -- putStrLn (showFloat (5.00000047::Float) "") s <- getContents putStrLn (showFloat ((read s)::Float) "")
