$<.bytes{|c|$.+=-c%45-1;(0..6)===$.?$><<'0*12345'[$.]:break}