<pre>function longLine T,F  get wdt(noReturn(T),50)  put padleft(F,20) && line 1 of it & return into R  repeat with L = 2 to the number of lines in it    put spc(20) && line L of it & return after R  end repeat  return Rend longLine</pre>