let open_in fn = of_in_channel (Pervasives.open_in_bin fn)