Your solution passed all tests

KiXtart
KiXtart Version  = 4.60 Beta 1
KiXGolf Script   = kixgolf_pq.kix

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Printer Queue
Processing Start = 2007/11/16 21:56:22.385
Processing End   = 2007/11/16 21:56:23.152
Duration         = 0000/00/00 00:00:00.767
KiXGolf Score    = 141

function a($,$p)
  dim $i,$t
  for $i=9 to 1 step -1
    while instr($,$i) & $t=0
      $t=$p=0 & $i=$
      $p=iif($p,$p-1,($^)/2)
      $a=$a+1*$/$i
      $=right($,-2) +_+($i>$)*$
endfunction