data FontData = FID FontStruct | FS FontStruct fontdata2struct :: FontData -> (FontStruct -> t) -> t