define doId use $x
   $x dup * $x /

define doPower use $v, $p
   $v $p pow

define doSort
   group
      20000 each choose
   list sort reverse

define timeFunc use $fName
   time as $t1
   $fName "" prefer call
   time as $t2
   $fName $t2 $t1 -"%.4g secs for %s\n" print

"NULL" timeFunc
42 "doId" timeFunc
12 2 "doPower" timeFunc
"doSort" timeFunc