module Prelude where

primDecodeDouble primitive 1 :: Double -> (Integer,Int)