(loop(= m(read))(read)(prn:count'***(drain(read)m)))