(mkcmplx TableRecord (mkfields {Tag tableTag} {uint32 checksum} {Offset32 offset} {uint32 length}))

(mkcmplx TableDirectory
         (mkfields {uint32 sfntVersion (= #x000100000 #x4f54544f)}
                   {uint16 numTables}
                   {uint16 searchRange}
                   {uint16 entrySelector}
                   {uint16 rangeShift}
                   {TableRecord tableRecords (count numTables)}))

(mkcmplx EncodingRecord
         (mkfields {uint16 platformID (= 0 1 2 3 4)} {uint16 encodingID} {Offset32 subtableOffset}))

(mkcmplx TableCmap
         (mkfields {uint16 version unused (= 0)}
                   {uint16 numTables}
                   {EncodingRecord encodingRecords (count numTables)})
         "cmap")

(mkcmplx TableHead
         (mkfields {uint16 majorVersion unused (= 1)}
                   {uint16 minorVersion unused (= 0)}
                   {Fixed fontRevision unused}
                   {uint32 checksumAdjustment unused}
                   {uint32 magicNumber unused (= #x5f0f3cf5)}
                   {uint16 flags}
                   {uint16 unitsPerEm}
                   {LONGDATETIME created unused}
                   {LONGDATETIME modified unused}
                   {int16 xMin}
                   {int16 yMin}
                   {int16 xMax}
                   {int16 yMax}
                   {uint16 macStyle}
                   {uint16 lowestRecPPEM}
                   {int16 fontDirectionHint unused (= -2 -1 0 1 2)}
                   {int16 indexToLocFormat (= 0 1)}
                   {int16 glyphDataFormat unused (= 0)})
         "head")