m@main=do n<-readLn;mapM putStrLn[[last$' ':['*'|elem(24*i+j)$scanl(++)[]t!!n]|j<-[2..8*div(n+4)5]]|i<-[0..4]];m t=[2..8]:[29,53,77]:[54,55]:[51,75]:[98..104]:map(map(8+))t
Note that non-ascii characters in the above source code will be escaped (such as \x9f).