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