let list_files dir =
  try
    Array.to_list (Sys.readdir dir)
    |> List.map (fun file -> Printf.sprintf "<li>%s</li>" file)
    |> String.concat ""
  with _ ->
    "<li>Error: Unable to read directory</li>"