a=$(wget -q http://faux.uwcs.co.uk/progcomp20110127/ -O - |tee prob|perl -ne '$a=0 if/EOF/;print if$a;$a=1 if/<pre>/'|perl -e'@a=<>;$a[0]=~/(.*)X/;$p=length$1;sub ex{my($p,$l,@s)=@_;if($l>$#a){print join"",@s[0..$#s-1],"\n";exit}else{return if$p<0||$p>length$a[$l]||substr($a[$l],$p,1)eq"#";ex($p+1,$l+1,@s,"r");ex($p-1,$l+1,@s,"l")}}ex($p,0)'); p=$(grep name=\"p\" prob|cut -d\" -f10); wget http://faux.uwcs.co.uk/progcomp20110127/