($n,$k,$t)=glob<>; $_=<>; substr($_,$k-1,1)^=$"; substr($_,$k+$t)='' if $k+$t<$n; substr($_,0,$-=$k-$t-1)=''; $r=$t-1&1; sub f{/aA|Aa/?/B((AA)*A{$r})a|a(?1)B/:!$r&!/(^|A(BB)+)a((BB)+A|$)/} print+(/a/?f:(y/ABb/BAa/,!f))?Alice:Bob