sub swap_bytes { shift; pack(q{v*},unpack(q{n*},$_)) }