open Jig;;
let p = rp 3 in
pzl "permutation" (Array.fold_right (fun j ls -> j::ls) p []);
let (top, embd, [inf; outf]) = mix (
   [[0; 1; 2]], [|[|1.; 0.|]; [|0.; 1.|]; [|0.23; -0.32|]|],
   [[0; 2]; [1; 2]]) p in
let bl = Glue.morphgen (nz (embd, pyt)) top [] in
(p, bl, (jig embd bl inf outf).lcurl ((if p.(0) < p.(2) then 0 else 1),
   [|[|1.; 0.|]; [|0.; 1.|]|]))
(* Should yield (_, _, [|[|1.; 0.|]; [|0.; 1.|]|]) *);;