print pack( 'c',
            ($T += $T == (1<<5) ? 0 : (1<<6))
                -= $offset % 13 == 0 ? (1<<5) : 0 );