($n,$x)=<>=~/\d+/g; $y+=$_ for @a=<>=~//g; @i=sort{$a[$b]<=>$a[$a]}0..$n-1; sub f{ my($i,$s,$t)=@_; if($i==$n){ print$h; exit; } $v=$a[$i[$i]]; if($s-$v>=0){ substr($h,$i[$i],1,'o'); f($i+1,$s-$v,$t); } if($t-$v>=0){ substr($h,$i[$i],1,'x'); f($i+1,$s,$t-$v); } } $h=$"x$n; f(0,$x,$y-$x)if$y>=$x; print"No"