#!/usr/bin/awk -f
BEGIN {
FS=""
}
{
sum=0
for(i=1;i<=10;i++) {
sum *= 2
if($(i) ~ /[BR]/) sum++
print sum, $0