<pre>function getSounds  toComputer  push cd  put false into returnSize  set itemDelimiter to tab  put "sons1" & tab & "sons2" & tab & "sons3" & tab & "sons4" & tab & "sons5" into soundStacks  repeat with x = 1 to the number of items of soundStacks    go to stack pile(item x of soundStacks)    put sndList(returnSize) into theSounds    repeat with y = 1 to the number of lines of theSounds      put item 1 of line y of theSounds into line y of theSounds    end repeat    put theSounds & return after soundsList  end repeat  pop cd  sort soundsList  put stripEmptyLines(soundsList) into soundsList  return soundsListend getSounds</pre>