(drain:writeb:mod(*(+(readb)1)7)128)