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 diskName
end disk