chat-cli: print newlines correctly
By accounting for them during text wrapping, instead of letting them
fall through to the printer.
^- (list tape)
?~ txt ~
=/ [end=@ud nex=?]
+ =+ ret=(find "\0a" (scag +(wid) `tape`txt))
+ ?^ ret [u.ret &]
?: (lte (lent txt) wid) [(lent txt) &]
=+ ace=(find " " (flop (scag +(wid) `tape`txt)))
?~ ace [wid |]
