Вы можете использовать следующий код:
In[58]:= S=1111111111111111111111111111111111111111111111111111111111111111111111111111\ 111111111111111111111111111111111111111111111111111111111111111111111111111111\ 111111111111111111111111111111111111111111111111111111111111111111111111111111\ 111111111111111111111111111111111111111111111111111111111111111111111111111111\ 1111111111111111111111111111111111111111111111111111; StringPartition[s_,l_]:=Table[StringTake[s,],]; fmts=Map[(" #"<>#<>"\r")&,StringPartition[ToString[S],66]]; (* Unfortunately the web software is ruining the formatting of the output, deleting the extra spaces I placed before the #, etc. *) (* But if you fix all the things this web software broke when I pasted your result and then run this and check the output carefully you should see it is correct *) FullForm[fmts] Out[61]//FullForm= List[ " #111111111111111111111111111111111111111111111111111111111111111111\r", " #111111111111111111111111111111111111111111111111111111111111111111\r", " #111111111111111111111111111111111111111111111111111111111111111111\r", " #111111111111111111111111111111111111111111111111111111111111111111\r", " #111111111111111111111111111111111111111111111111111111111111111111\r", " #11111111111111111111111111111111\r" ]