<pre>function ItemsToLines itemList  toComputer  if itemList is empty then return "Doit fournir une liste!"  repeat with x = 1 to the number of items of itemList    put item x of itemList into line x of lineListe  end repeat  return lineListeend ItemsToLines</pre>