([for i 17 288(writeb:if(< _.i 46)_.i(+(count 42(map *(cut _(- i 18))(+ m m m)))48))](+(= m `(1 1 1,@(n-of 14 0)))(drain:readb)))