let channels = fun f_array_array_array -> fun width ->
let channel = fun faaa -> fun i ->
let faa = faaa.(i) in
let length = Array.length faa in
let fa = faa.(length - 1) in
Array.length fa
in
let channel_array = Array.init width (channel f_array_array_array) in
channel_array