let topx = [[0; 2; 4]; [0; 5; 2]; [0; 4; 3]; [0; 3; 5]; [1; 4; 2]; [1; 2; 5]; [1; 3; 4]; [1; 5; 3]]
and embdx = [|[|0.; 0.; 1.|]; [|0.; 0.; -1.|]; [|0.; 1.; 0.|];  [|0.; -1.; 0.|];
    [|1.; 0.; 0.|]; [|-1.; 0.; 0.|]|];;

let bl = Glue.morphgen (nz embdx) topx;;