(let(_ n . p)(rev:drain:read)(n-of 201(= n(*(find[exact:* _ n](pair rev.p /))prn.n))))