main=do x<-readLn;mapM putStrLn[([y..x-1]>>" ")++do[4..y*2];"*"|y<-[2..x]++[2]]