Not that it makes much difference since I never got a working version, but here are the two that I was working with.

Code Sample 1
 Code:
; begin Printer Queue
;
;!
Function a($b,$c)
Dim $array,$,$3,$2,$t[Len($b)],$l,$r

$a = $c
$array = Split($b)
$l = Ubound($array)

For $ = 9 to 1 step -1
	For $3 = 0 to $l 
	  	While $array[$3] < $
			For $2 = $3 to $l
				If $2 = $l
	              		$t[$2] = $array[$2]
				Else
					$t[$2] = $array[$2+1]
				EndIf
			Next
			$array = $t
			$b = Join($array)
			? $b ?
		Loop
	Next
Next

EndFunction
;!
;!
; end Printer Queue


Code Sample 2
 Code:
; begin Printer Queue
;
;!
Function a($b,$c)


Dim $, $2, $3
$b = Split($b)

For $ = 9 to 1 Step -1
  for $2 = 0 to Ubound($b)
	If $b[$2] = $ 
		If $2 = $C 
			$A = $3 + 1
		EndIf
		$3 = $3 + 1
	Endif
  Next
Next

EndFunction
;!
;!
; end Printer Queue



Feel free to tell me where I made the wrong assumptions.
_________________________
Today is the tomorrow you worried about yesterday.