floatwordid :: Word8 -> Bool
floatwordid x = floatToWord8 (word8ToFloat x) == x
floatwordid :: Word8 -> Bool
floatwordid x = floatToWord8 (word8ToFloat x) == x
floatwordid x = floatToWord8 (word8ToFloat x) == x