type variant = | Christmas| Typical
type face = {source : string;weight : int;style : string;
}val font_path : string -> stringval variant_to_string : variant -> stringval font_source_to_css : string -> stringval font_face_to_css : string -> face -> stringval font_to_font_face : string -> face list -> stringval fonts_to_css : fonts -> string