(= s(+"apple"(n-of 25'*)))(for i 0(read)(= s(+""(rev:split(prn s)29))))