floatToWord :: (Storable word, Storable float) => float -> IO word
floatToWord float = alloca $ \buf -> do
    poke (castPtr buf) float
    peek buf
floatToWord :: (Storable word, Storable float) => float -> IO word
floatToWord float = alloca $ \buf -> do
    poke (castPtr buf) float
    peek buf
floatToWord float = alloca $ \buf -> do
    poke (castPtr buf) float
    peek buf