let input_mo_translation failsafe chn mo_header number =
  let untranslated = 
    input_mo_untranslated failsafe chn mo_header number
  in
  let translated = 
    input_mo_translated failsafe chn mo_header number
  in
  match untranslated with
    [ id ] -> Singular ( id, String.concat "\000" translated )
  | id :: id_plural :: [] -> Plural ( id, id_plural, translated )
  | id :: id_plural :: tl ->
      fail_or_continue failsafe 
      (MoJunk (id, tl)) 
      (Plural (id, id_plural, translated))
  | [] ->
      fail_or_continue failsafe
      MoEmptyEntry
      (Singular ( "", ""))