#!/usr/bin/picolisp /usr/lib/picolisp/lib.l

# Want to define a fun called 'timed'
# which shows how many seconds it takes for my program to be executed.
# The attempt below does not work because Prog VAL is a list
# so it cannot be accepted by (prog)

(scl 9)

(de timed Prog
    (let STime (usec)
        (prog Prog) # This does not work...
        (println 'Took: (format (*/ (- (usec) STime) 0.000001 1.0) *Scl)) ) )

(setq N 10000000)

(timed (println "Doing a loop now...") (for I N (* I N)))

(bye)