let output_mo_header chn hdr = 
  let output = output_int32 chn hdr.endianess
  in
  (* magic_number : be is the native way to
  * specify it, it will be translated through 
  * the output_int32*)
  output mo_sig_be;                  
  output hdr.file_format_revision; 
  output hdr.number_of_strings;
  output hdr.offset_table_strings;
  output hdr.offset_table_translation;
  output hdr.size_of_hashing_table;
  output hdr.offset_of_hashing_table