-- -*- M2-comint -*- {* hash: 288100793 *}

i1 : wrap(10,"abcdefghijklmnopqrstuvwxyz")

o1 = abcdefghij
     klmnopqrst
     uvwxyz

i2 : wrap(10,"-","abcdefghijklmnopqrstuvwxyz")

o2 = abcdefghij
     ----------
     klmnopqrst
     ----------
     uvwxyz

i3 :