read
$_ m
for m in $m
{
for((j=2;m%j?s^=e%3,e=!++j,m-1:(m/=j,++e);)){
:
}
}
Bob
echo ${_[s]-Alice}