stacks

the stacks

on whatStacks
   put longNamesToShort(the stacks) into theStacks
   answer "The stacks currently open are:" & return & return & theStacks
 end whatStacks
 

 function longNamesToShort longStackList
   put empty into shortStackList
   set the itemDelimiter to ":"
   repeat with lineNum = 1 to the number of lines in longStackList
     put last item of line lineNum of longStackList into ¬
     line lineNum of shortStackList
   end repeat
   set itemDelimiter to comma
   return shortStackList
 end longNamesToShort