$<.bytes{|b|putc'0*12345'[7&$.+=4-b]}