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