loop{putc'0*12345'[7&~-$.-=5*getc]}