function a($,$p)
  dim $i
  for $i=9 to 1 step -1
    while instr($,$i) | $p=0 & $i=split($)[$p]
      $p=iif($p=0,($^)/2,$p-1)
      $a=$a+($>=$i)
      $=right($,-2) + iif($i>$," " + 1*$,"")
    ;loop 
  ;next 
endfunction