let make language w =
    let gfile = Wpo.file_for_po ~gid:w.po_gid language in
    export gfile [
      file_for_model ~model:w.po_model language ;
      file_for_env   ~env:w.po_env language ;
      file_for_goal  ~gid:w.po_gid language ;
    ] (fun _fmt -> ()) ;
    gfile