<pre>function disk  global diskName  if diskName is not empty then return diskName  put word 2 of the long name of this stack into diskName  delete char 1 of diskName  set itemDelimiter to ":"  put item 1 of diskName into diskName  return diskNameend disk</pre>