m@main=getLine>>=putStrLn.(0%)>>m
n%l=l!!n:do x<-[0..50];[1|l!!x==l!!n,x/=n];(x+1)%l