sub uint16_to_bytes {
   my ($int) = @_;
   return unpack('C2', pack('v', $int));
}

sub bytes_to_uint16 {
   my ($lo, $hi) = @_;
   return unpack('v', pack('C2', $lo, $hi));
}

sub int16_to_bytes {
   my ($int) = @_;
   return unpack('C2', pack('v', unpack('S', pack('s', $int))));
}

sub bytes_to_int16 {
   my ($lo, $hi) = @_;
   return unpack('s', pack('S', unpack('v', pack('C2', $lo, $hi))));
}