sub A2W{ pack 'S*', unpack 'C*', $_[0] }
sub W2A{ pack 'C*', unpack 'S*', $_[0] }