$x=<>;
for((A,A,B,B,A,B,B)x100){
    $z+=/A/?2:-1;
    $y+=/A/?2:1;
    $z==$x&&exit!print$y;
}