upd: {[t;x]
    .lb.t:t;
    .lb.x:x;
    if [not count x;:()]
    a:.z.p;
    if[not -16=type first first x; a:"n"$a];
      f:cols getfromdot[t];
      g:flip f!flip x;
      pub[t;$[0>type first x; enlist f!flip x;flip f!flip x]];
      if[l; l enlist (`upd;t;g);i+:1];
    }