Function check_header 

pub(crate) fn check_header<R: Read>(input: &mut R) -> Result<(), Fail>