alias intcalc {
  var %1 = $1,%2 = $2,%ir = 0.04
  if (%2 == $null) { set %2 1 }
  var %intcalc = $calc(%1 * (1+ %ir) ^ %2)
  var %intt = $calc((%1 * (1+ %ir) ^ (%2 - 1)) * %ir)
  echo -a Interest on %1 over %2 day(s) @ $calc(100* %ir) $+ % per day: $calc(%1 * (1+ %ir) ^ %2) ( $+ %intt $+ )
  return $calc(%1 * (1+ %ir) ^ %2)
}