font_kerning = if ctx.ttf.ttf_kern = None then [] else
    List.iter (fun t ->
        match t with
        | Kern0 (fmt) -> fmt.k0_pairs;
        | _ -> ??
    )ctx.ttf.ttf_kern.kern_subtables;