main=mapM(div#)[4,9..74]
(%)#x=putStrLn[last$' ':[c|x%5+n%5==n%3]|n<-[1..100],n<x%2*3,c<-show n]