sig val full : unit -> string val commands_only : unit -> string end