(do((i(read)))(/)(write-line(subseq(format()"~3@{apple~25@{*~}~}"t)i(+(decf i)31))))