main=mapM putStrLn$foldr(#)[""]"0929:95959" n#x=[a:s|a<-['0'..n],s<-x,all(/=a)s,n:a:s<":24"]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page