Biocaml 0.4-dev : Biocaml_sgr.of_file

let of_file ?(chr_map=ident) ?(increment_bp=0) file = 

 try_finally_exn (of_channel ~chr_map ~increment_bp)

  ~fend:In_channel.close (open_in file)