! bn_speedtest.jnl
! issue large numbers of commands, timing with clock time
can mode verify

! speed.jnl
def sym clock1 ($clock_secs)
rep/i=1:10 rep/j=1:1000 let a=0
say 10K LET commands LET a = 0 takes  `($clock_secs) - ($clock1)`  seconds
plot/i=1:5 i
rep/i=1:10 rep/j=1:1000 let a=0
say Second 10K LET commands LET a = 0 takes  `($clock_secs) - ($clock1)`  seconds

let b = {1,2,3}
def sym clock1 ($clock_secs)
rep/i=1:10 rep/j=1:500 (let a = `j`*b; load a[i=@max]) 
say 5K LOAD with transform takes  `($clock_secs) - ($clock1)`  seconds

set mode/last verify
