(* Prints an OCaml module with one string per file: static/base.css
   becomes [let base_css = "..."]. *)

let ident path =
  String.map (function 'a' .. 'z' | '0' .. '9' as c -> c | _ -> '_')
    (String.lowercase_ascii (Filename.basename path))

let () =
  Array.iteri
    (fun i path ->
      if i > 0 then
        Printf.printf "let %s = %S\n" (ident path)
          (In_channel.with_open_bin path In_channel.input_all))
    Sys.argv