serializeConstr (IntConstr i)    = serializeWord8 2 . serializeInteger i
serializeConstr (IntConstr i)    = serializeWord8 2 . serializeInteger i
serializeConstr (IntConstr i)    = serializeWord8 2 . serializeInteger i