<pre>function paragraphs str  put number of lines of str into nl  repeat with x = 1 to nl    put paragraph( filterText( line x of str ) ) & return after tx  end repeat  return txend paragraphs</pre>