let cart a1 a2 =
  let w = Array.length a1 in
  let h = Array.length a2 in
    Array.init w (fun x ->
                    (Array.init h
                       (fun y ->
                          a1.(x),a2.(y))))