$<.bytes{|x|putc'0*12345'[7&$.-=5*x]}