(dotimes(i(1+(read)))(write-line(subseq(format()"~3@{apple~25@{*~}~}"t)(- 60 i)(- 90 i))))