my $style_word=pack(b2 b3 b5 b6),$pos,$aw,$stru,0;