main=3%465554 p%c|n<-mod c 3+29,c>0=mapM putStrLn[do x<-take 7[y..n];take 3$(0:[9,0..x]>>" ")++show x|y<-[1-p,8-p..n+7]]>>mod(n+p)7%div c 3