<pre>on mouseUp  answer file "Creator of file :"  if it is empty or the result is cancel then return "cancelled"  answer "The creator of file" & return && quote & it & quote & return & "is" && quote & getFileCreator(it) & quoteend mouseUpfunction getFileCreator finderItem  put "set source to" && "(" & quote & finderItem & quote && "as alias)" & return after scriptVar  put "tell application" && quote & "Finder" & quote & return after scriptVar  put "set response to the creator type of source" & return after scriptVar  put indent(2) & "return (response as string)" & return after scriptVar  put "end tell" after scriptVar  do scriptVar as appleScript  return the resultend getFileCreatorfunction indent howMany  repeat howMany times    put space after spaces  end repeat  return spacesend indent</pre>