Here's my still very golf-able 249 code. For the record, i came up with my algorithm soley based on Jooel's post of the solutions in the private round, so thanks Jooel

Code:

function s($a)
   dim $,$i,$c,$n
   $=' '
   for $c = 1 to $a
      $ = 'Wa' + $ + 'aB'
   next
   $ = split($,a)
   $s=join($,'')

   $n=1
   for $i = 1 to $a*2
      for $c=$n*($i-2*($i-$a)*($i>$a))*($i<$a*2) to -$c step -2*$n
         $[ascan($,' ')] = $[$c+$a]
         $[$c+$a]=' '
         $s=$s+a+join($,'')
      next
      $n=-$n
   next
   $s=split($s,a)
endfunction

I'm leaving for Vegas today, so i'll catch you guys again on Wednesday. Good luck!