module Prelude where primFloatFromInteger primitive 1 :: Integer -> Float