Printtyp.Out_name
val create : string -> Outcometree.out_name
val print : Outcometree.out_name -> string