let fun_array_to_fun = fun fun_array -> let reverse = fun t -> fun f -> f t in let new_fun = fun t-> Array.map (reverse t) fun_array in new_fun