serializeConstr (FloatConstr r)  = serializeWord8 3 . serializeRational r
serializeConstr (FloatConstr r)  = serializeWord8 3 . serializeRational r
serializeConstr (FloatConstr r)  = serializeWord8 3 . serializeRational r