sig val init : unit -> unit val compile : Html.t list -> string -> Html.t list val calc : Html.t list -> Html.t list end