alias getchall {
  var %i = 1 
  while ($mid($mid($1-,%i,1),1) != $null) {
    if ($v1 isnum) { var %c = %c $+ $v1 } 
    inc %i
  }
  return %c
}