functor (Html5 : Html5_sigs.NoWrap->
  sig
    val write_inline :
      ?class_prefix:string ->
      ?extra_classes:Html5_types.nmtoken list ->
      Camlhighlight_core.t -> [> Html5_types.span ] Html5.elt
    val write_block :
      ?class_prefix:string ->
      ?extra_classes:Html5_types.nmtoken list ->
      ?dummy_lines:bool ->
      ?linenums:bool ->
      Camlhighlight_core.t -> [> Html5_types.div ] Html5.elt
    val write :
      ?class_prefix:string ->
      ?extra_classes:Html5_types.nmtoken list ->
      ?dummy_lines:bool ->
      ?linenums:bool ->
      Camlhighlight_core.t -> [> Html5_types.div ] Html5.elt
  end