\SourceFile{main.tex}\SetLineno{56}
let f2 =
  let tex = tex ~style:Circle ~stroke:(Some Color.black) in
  let b = vbox [tex "a"; hbox [tex ~name:"b" "b"; tex "c"]] in
  let f = hbox ~padding:(bp 20.) [b;b;b] in
  let arrow = box_arrow ~outd:(vec (dir (-60.))) in
  let node i = get "b" (nth i f) in
  seq [draw f;
       arrow (node 1) (node 0);
       arrow (node 0) (node 2);
       arrow (node 0)  (node 2);
       arrow (node 1) (node 2);
      ]
