let bin hist k = try Some (bin_exn hist k) with _ -> None