print $h pack 'l4 l/Z (Z*)*', $type, $m, $n, $imag,  $name,  @a;