(on n(= a(drain:read))(prn:inc:count[< n _]a))