main=do n<-readLn;s<-getLine;let b#a=a:[b|_<-[3..n]]++[a]in mapM(putStrLn.(s>>=))$(' '#)# \a->a#a