Let Benchmark

globals [ glob1 result ]

to benchmark
  set result 0.0
  random-seed 362
  reset-timer
  setup
  repeat 1000000 [ go ]
  set result timer
end 

to benchmark-locals
  random-seed 362
  reset-timer
  setup
  repeat 1000000 [ go-locals ]
  set result timer
end 

to setup
  ca
  set glob1 0
end 

to go
  let a glob1
  let b a
  let c b
end 

to go-locals
  let a 0
  let b 0
  let c 0

  set a glob1
  set b a
  set c b
end