Good morning my golfing fellas, here's my 161: looking very different to Allens \:\) Oh, the things I haven't thought of , and still there is a GOTO \:o ) 


function a($,$b)
    dim $c
    $=split($)
    $[$b]=$[$b]+#
    while 2>$c
        $b=$[0]
        for each $c in $
            if 0+$c>$b
                goto 1
            endif
        next
        $c=0^$b
        $b=0
        $a=$a+1
        :1
        $[0]=''
        $=split(trim(join($)+' '+$b))
endfunction




Your solution passed all tests

KiXtart
KiXtart Version  = 4.53
KiXGolf Script   = kixgolf_pq.kix

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Printer Queue
Processing Start = 2007/11/15 07:13:51.734
Processing End   = 2007/11/15 07:13:54.546
Duration         = 0000/00/00 00:00:02.811
KiXGolf Score    = 161

Thank you for participating in KiXtart Golf!
_________________________