let srv =
  host_distributor
    [ default_host ~pref_name:"localhost" ~pref_port:8765 (),
      uri_distributor
        [ "*", (options_service());
          "/", (dynamic_service
                           { dyn_handler = root_page;
                             dyn_activation = std_activation `Std_activation_buffered;
                             dyn_uri = Some "/";
                             dyn_translator = (fun _ -> "");
                             dyn_accept_all_conditionals = false
                           });
          "/dcrt", (file_service fs_spec);
          "/index.html", (dynamic_service
                           { dyn_handler = root_page;
                             dyn_activation = std_activation `Std_activation_buffered;
                             dyn_uri = Some "/index.html";
                             dyn_translator = (fun _ -> "");
                             dyn_accept_all_conditionals = false
                           });
          "/list.html", (dynamic_service
                           { dyn_handler = list_student;
                             dyn_activation = std_activation `Std_activation_buffered;
                             dyn_uri = Some "/list.html";
                             dyn_translator = (fun _ -> "");
                             dyn_accept_all_conditionals = false
                           });
          "/project.html", (dynamic_service
                           { dyn_handler = show_project;
                             dyn_activation = std_activation `Std_activation_buffered;
                             dyn_uri = Some "/project.html";
                             dyn_translator = (fun _ -> "");
                             dyn_accept_all_conditionals = false
                           });
          "/team.html", (dynamic_service
                           { dyn_handler = show_team;
                             dyn_activation = std_activation `Std_activation_buffered;
                             dyn_uri = Some "/team.html";
                             dyn_translator = (fun _ -> "");
                             dyn_accept_all_conditionals = false
                           });
          "/student.html", (dynamic_service
                           { dyn_handler = show_student;
                             dyn_activation = std_activation `Std_activation_buffered;
                             dyn_uri = Some "/student.html";
                             dyn_translator = (fun _ -> "");
                             dyn_accept_all_conditionals = false
                           });
          "/gradelist.html", (dynamic_service
                           { dyn_handler = show_gradelist;
                             dyn_activation = std_activation `Std_activation_buffered;
                             dyn_uri = Some "/gradelist.html";
                             dyn_translator = (fun _ -> "");
                             dyn_accept_all_conditionals = false
                           });
          "/orals.html", (dynamic_service
                           { dyn_handler = show_orals;
                             dyn_activation = std_activation `Std_activation_buffered;
                             dyn_uri = Some "/orals.html";
                             dyn_translator = (fun _ -> "");
                             dyn_accept_all_conditionals = false
                           });
        ]
    ]