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