module Prelude where

primDecodeFloat primitive 1 :: Float -> (Integer,Int)