Changed failwith on map_reduce.ml