print unpack 's', pack 'S', unpack 'n', $n;

##</code><code>##

sub utos16{ unpack 's', pack 'S', $_[0] }