Mine

/eval {
  var %ticks $ticks
  if ([ [ $1- ] ] != $null) { msg $active $1- --> [ [ $1- ] ] - $calc($ticks - %ticks) $+ ms }
  else { msg $active $1- --> $ $+ null - $calc($ticks - %ticks) $+ ms }
  :error
  var %temperr = $error
  if (%temperr) { msg $active $1- -->  $+ $gettok($gettok($gettok(%temperr,1-,32),2,58),1,32) $+  - $remove($gettok(%temperr,1,58),*)  - $calc($ticks - %ticks) $+ ms }
  reseterror
  haltdef
}
/e {
  var %ticks $ticks
  if ([ [ $1- ] ] != $null) { echo -a $1- --> [ [ $1- ] ] - $calc($ticks - %ticks) $+ ms }
  else { echo -a $1- --> $ $+ null - $calc($ticks - %ticks) $+ ms $+ ) }
  :error
  var %temperr = $error
  if (%temperr) { echo -a $1- -->  $+ $gettok($gettok($gettok(%temperr,1-,32),2,58),1,32) $+  - $remove($gettok(%temperr,1,58),*)  - $calc($ticks - %ticks) $+ ms }
  reseterror
  haltdef
}