<>;for$k(glob<>){$n^=grep($k%$'<1?$k/=$':0,//..13)%3for 2..$k}print$n?Alice:Bob