main=mapM putStrLn$foldr(#)[""]"0929:95959"
n#x=[a:s|a<-['0'..n],s<-x,all(/=a)s,n:a:s<":24"]