hoon: adds $cord to $tank
::
:: $tank: formatted print tree
::
+:: just a cord, or
:: %leaf: just a tape
:: %palm: backstep list
:: flat-mid, open, flat-open, flat-close
::
+$ tank
$~ leaf/~
+ $@ cord
$% [%leaf p=tape]
[%palm p=(qual tape tape tape tape) q=(list tank)]
[%rose p=(trel tape tape tape) q=(list tank)]
::
++ ram
^- tape
+ ?@ tac
+ (trip tac)
?- -.tac
%leaf p.tac
::
::
=| lug=wall
|^ ^- wall
+ ?@ tac
+ (rig (trip tac))
?- -.tac
%leaf (rig p.tac)
::
