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)