<pre>function pile nomPile  if nomPile is empty then return empty  toComputer  set lockMessages to false  put liste("piles") into theStacks  if nomPile is not in theStacks then return empty  set itemDelimiter to tab  repeat with x = 1 to the number of lines of theStacks    if item 1 of line x of theStacks is nomPile    then return item 2 of line x of theStacks  end repeat  answer "Pile" && nomPile && "est introuvable."  return emptyend pile</pre>