Yay! 2nd place! I guess I can be proud of it still.

Look Ma, 4 iif()'s. \:\)
What have you done, silly Boy! *Slap*



for 247:
 Code:
function a($, optional $k)
    dim $e,$m
    $k=$k+$<' '
    $m=' ','	'
    $e=$<!
    while $
        dim $c,$n,$x
        $x=asc($)
        $n=128
        while $n
            $c=$c+iif($e,$n*(($k^$<' ')&$>),$m[$k^$x/$n])
            $x=$x-$n*($x/$n)
            $n=$n/2
            $=iif($e|$n=0,right($,~),$)
        loop
        $a=$a+iif($e,chr($c),$c+iif($,@,$m[$k]))
endfunction
_________________________