program main implicit none integer::i,j,k,l,m,n,grundy=0 read*,n do i=2,n j=0 do while(n>0.and.mod(n,i)==0) n=n/i j=j+1 end do grundy=xor(grundy,j) if(i*i>=n)exit end do if(n>1)grundy=xor(grundy,1) if(grundy==0)then print*,"Bob" else print*,"Alice" end if end program main