let slurp_bin filename = with_file_in_bin filename slurp_ch