\Object\ant{...\MarkXLoc(tail)
   ...\MarkXLoc(head) }}
 \Object\row(1){  \Do(1,#1){
   \EntryExit(-1,0,2,0)
   \ant...\MoveToLoc(tail)
   \MarkXLoc(\Val\I-\Val\J-t)...}}
 \Define\edges(1){...
   \MoveToLoc(\Val\K-\Val\J-t)...
   \LineToLoc(\Val\I-\Val\J-h)...}
 \Define\G(1){ \EntryExit(0,1,0,-2)...
   \row(#1)...\edges(#1)...}
 \Draw \G(1 & 4 & 3) \EndDraw