alias hpbar4 {
  var %x $calc($2/20)
  var %o $left(--------------------,$calc($1 * 20 / $2)) $+ $str(~,$calc(20 - ($1 * 20 / $2)))
  var %o2 $left(%o,10) $+ 01,04 $+ $1 $+ $right(%o,10)
  return $replace(%o2,-,09 $+ $chr(44) $+ 09-,~,04 $+ $chr(44) $+ 04.)
}