Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/numbers/integerdouble/Main.hs
main = let a = 123456789 in print (fromInteger a + 0.0)