$/=words;put substr "BW"x 99,$_+$2.ord,$0 for ^$1