Text wrap mode

[Albert Chan]

Unlike Python, CAS string is 1-based:

CAS> wrap(s,n) := transpose(makelist(k->s[k:k+n],1,len(s)+1,n))
CAS> s := "654765675865784866587657655555465"
CAS> wrap(s, 10)

\(\left(\begin{array}{c}
\mathrm{6547656758} \\
\mathrm{6578486658} \\
\mathrm{7657655555} \\
\mathrm{465}
\end{array}\right) \)