method save_to_file f =
      try
        let oc = open_out f in
        let l = List.rev phrases in
        List.iter
          (fun s -> Printf.fprintf oc "%s\n" s)
          l;
        close_out oc
      with
        Sys_error s ->
          GToolbox.message_box param#s_error s
      | e ->
          GToolbox.message_box param#s_error (Printexc.to_string e)