main=do x<-readLn;interact$unwords.take(div(x+15)5).words