let emb = [|[|0.; 0.; 0.|]; [|1.; 0.; 0.|]; [|0.; 1.; 0.|];
   [|0.; 0.; 1.|]; [|0.; 0.; 1.|]; [|0.; 0.; 1.|]|];;
let top = [[0; 1; 2; 3]; [0; 1; 3; 5]; [0; 4; 5; 3]];;