substr( $x, $_, 1 )) << 1