main=[1]%[2..541] p%(a:b)|q<-p++[a]=print(q!!(b!!0-a))>>q%[x|x<-b,mod x a>0]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page