unpack('C', substr(pack('J', $val), -1, 1))