Profiler Example

extensions [profiler]

to procedure-1
  output-print "procedure-1 called"
end 

to procedure-2
  output-print "procedure-2 called"
  procedure-1
  let dummy-variable reporter-procedure
end 

to-report reporter-procedure
  output-print "reporter-procedure called"
  report true
end 


; Public Domain:
; To the extent possible under law, Uri Wilensky has waived all
; copyright and related or neighboring rights to this model.