#!/usr/bin/awk -f

BEGIN {
    FS=""
}

{
    sum=0
    for(i=1;i<=10;i++) {
        sum *= 2
        if($(i) ~ /[BR]/) sum++
    }
    print sum, $0
}