(princ(do((n(read)(*(read)n)))((not(read-char()()))n)))