$/=words;put(substr "BW"x 99,$+++$2.ord,$0)xx$1