main=[1]%[2..541]
p%(a:b)|q<-p++[a]=print(q!!(b!!0-a))>>q%[x|x<-b,mod x a>0]