let create
    ?(host=Ketrew_host.tmp_on_localhost)
    ?queue ?name ?wall_limit ?processors ?project
    program =
  `Long_running ("LSF",
                 `Created {host; program; queue; name;
                           wall_limit; project; processors}
                 |> serialize)