<pre>on documentHandlers  -- this script requires 2.77 hours.  put the seconds into initialTime  toComputer  put liste("piles") into theStacks  if theStacks is empty then exit documentHandlers  set itemDelimiter to tab  put 0 into msg box  push cd  repeat with currentStack = 1 to the number of lines of theStacks    go to stack item 2 of line currentStack of theStacks    put the long name of this stack into theObject    put the script of this stack into theScript    if theScript is not empty then getHandlers theScript,theObject    repeat with currentBg = 1 to the number of bgs      go to bg currentBg      put the long name of this bg into theObject      put the script of this bg into theScript      if theScript is not empty then getHandlers theScript,theObject      if the number of cd parts > 0 then        repeat with curBgPart = 1 to the number of bg parts          put the long name of bg part curBgPart into theObject          put the script of bg part curBgPart into theScript          if theScript is not empty then getHandlers theScript,theObject        end repeat      end if    end repeat    repeat with curCard = 1 to the number of cds      go cd curCard      put the long name of this cd into theObject      put the script of this cd into theScript      if theScript is not empty then getHandlers theScript,theObject      if the number of cd parts > 0 then        repeat with curCdPart = 1 to the number of cd parts          put the long name of cd part curCdPart into theObject          put the script of cd part curCdPart into theScript          if theScript is not empty then getHandlers theScript,theObject        end repeat      end if    end repeat  end repeat  pop cd  put the seconds - initialTime into elapsedTime  beep 3  answer "J'ai documente tous les scripts en" && elapsedTime && "secondes."end documentHandlers</pre>