sig
  val graph_page :
    (Format.formatter -> unit) ->
    ?subtitle:(Format.formatter -> unit) ->
    string list ->
    (Format.formatter -> unit) ->
    (Format.formatter -> unit) -> Format.formatter -> unit
end