f x|x<17||x>99=[x|x>0]|x>79=4:20:f(x-80)|k<-mod x$2^div x 60*10=x-k:f k
main=mapM(putStrLn.unwords.map show.f)[1..100]