Try use that code:

Code:
alias fitall {
  if (!$1) { return }
  var %text = $1-
  var %t = $numtok(%text,32)
  var %i = 1
  while (%i <= %t) {
    var %v = $gettok(%text,%i,32)
    var %id = $left(%v,1)
    var %value = $right(%v,3)
    if (%id) { set -eu0 %fit_ $+ %id $addtok(%fit_ [ $+ [ %id ] ],%value,32) }
    inc %i
  }

  var %tot = $var(fit_*,0)
  var %z = 1
  while (%z <= %tot) { var %output = %output $right($var(fit_*,%z),-5) $+ $remove($var(fit_*,%z).value,$chr(32)) | inc %z }

  return $iif(%output,$v1,0)
}