crunch.ml

let () =
  let i = open_in_bin Sys.argv.(2) in
  let len = in_channel_length i in
  let s = String.create len in
  really_input i s 0 len; 
  Printf.printf "let %s =\n\  \"" Sys.argv.(1);
  for i = 0 to String.length s - 1 do 
    if i mod 18 = 0 && i <> 0 then Printf.printf "\\\n   ";
    Printf.printf "\\x%02X" (Char.code s.[i]);
  done;
  Printf.printf "\"\n"