let html_page_route path =
  let ic = open_in ("html" ^ path ^ "index.html") in
  let lines = In_channel.input_all ic in
  In_channel.close ic;
  Dream.get path (fun _ -> Dream.html lines)