($H,$W)=glob<>; <>; for(reverse<>){ ($S,$K)=split; if($S eq'R'){ if($K==$y){ $x=($x-1)%$W } }else{ if($K==$x){ $y=($y-1)%$H } } } print$x+$y&1?black:white