sig
  val parse : string -> (string * string) list
  val make : (string * string) list -> string
end