Function encode_bytes_be 

pub fn encode_bytes_be(buf: &mut [u8], bs: &[u8]) -> SResult