alias bar {
  var %x = $iif(/ isin $1,$int($calc(40*($1 *100)/100)),$int($calc(40*$1 /100)))
  if (/ isin $1) { tokenize 32 $calc($1 *100) }
  if ($len($mid($int($1),3,1))) { %b = $reptok(%b,$chr(160),$mid($int($1),3,1),19,46) }
  var %b = $reptok($+($chr(3),0,$chr(44),09.,$str($chr(160) $+ .,%x),$chr(3),0,$chr(44),04.,$str($chr(160) $+ .,$calc(40-%x))),$chr(160),$mid($int($1),1,1),19,46)
  return $remove($reptok(%b,$chr(160),%,19,46),.)
  if ($len($mid($int($1),2,1))) { %b = $reptok(%b,$chr(160),$mid($int($1),2,1),19,46) }
}