<pre>on compact  toComputer  put liste("piles") into allStacks  set itemDelimiter to tab  push cd  repeat with x = 1 to the number of lines of allStacks    put "Compaction de :" && quote & item 1 of line x of allStacks & quote    do "go to stack" && item 2 of line x of allStacks    if the freeSize of this stack > 0 then doMenu "Compact Stack"  end repeat  put empty  pop cdend compact</pre>