chat-cli: add trace printf for tuba crashes
~(glyph tr source)
=/ lis=(list tape)
%+ simple-wrap
+ ~| [%weird-text `@`+.letter]
`tape``(list @)`(tuba (trip +.letter))
(sub wyd (min (div wyd 2) (lent pef)))
=+ lef=(lent pef)
