well... here's my 136... after the closing of the private round...

Jooel just pointed out to me that $c = val($) (for the first numeric val) can also be written as $c = 0 + $, this change gives a 136 instead of a 139...

Yep, I'm a bit sad...

 Code:
; begin Printer Queue
;
;!
Function a($,$p)
Dim $c, $i

	While ~$p
		$a = $a +($c<>X)
		$p = $p - 1
		$c = 0+$
		$ = substr($,3)
		For each $i in split($)
			If $c<$i
				$  = $ + ' ' + $c
				$c = X
				if $p < 0
					$p = ($^) / 2
EndFunction
;!
;!
; end Printer Queue
_________________________
The Code is out there