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