Function read_header 

fn read_header<R: Read>(reader: &mut R) -> Result<Option<Header>>