let wig_to_string () =
    let wig = Wig.Transform.t_to_string () in
    make_printer wig ()
      ~split:(function
      | `comment _ | `track _ | `browser _ as x -> `left x
      | #Wig.t as y -> `right y)