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