let create w logfile = let outc = open_out logfile in let fmt = Format.formatter_of_out_channel outc in { logid = w.po_gid ; logout = outc ; logfmt = fmt ; logcmd = None ; files = [] ; }