<pre>function listHandlers theObject  set cursor to 4  put 0 into NN  put 0 into NF  put 0 into NC  put empty into theList  put the script of theObject into theScript  put the number of lines in theScript into NL  repeat with L = 1 to NL    put L    get line L of theScript    if it contains "-" and "" is not in it then      add 1 to NN      put return after theList    else if word 1 of it is "function" then add 1 to NF    else if word 1 of it is "on" then add 1 to NC    else next repeat    put line L of theScript & return after theList  end repeat  put timeStamp() & "  List of handlers in" && (the name of theObject) & return & return into header  put the length of theScript & " bytes / " && NL & " lignes / " & NN & " sections / " & NF & " fonctions / " & NC & " commandes" & return & return after header  return header & theListend listHandlers</pre>