let create w = let file = Wpo.file_for_log ~gid:w.po_gid in let outc = open_out file in let fmt = Format.formatter_of_out_channel outc in current := None ; (outc,fmt)