let arrange = fun float_array_array_array -> fun width ->
        let concat faaa = fun i -> 
                let faa = faaa.(i) in
                Array.concat (Array.to_list faa)
        in
        let float_array_array = Array.init width (concat float_array_array_array) in
        let float_array_list = Array.to_list float_array_array in
        float_array_list