let read filename =
  let ic = open_in filename in
  let length = in_channel_length ic in
  let content = really_input_string ic length in
  close_in ic;
  content
  
let split filename char = 
  String.split_on_char char (read filename)