cons c t = unstream (S.cons (safe c) (stream t))
-- | /O(n)/ Adds a character to the end of a 'Text'. This copies the
-- entire array in the process, unless fused. Subject to fusion.
cons c t = Chunk (T.singleton c) t
"LAZY TEXT cons -> fused" [~1] forall c t.