Function encode 

pub fn encode<'a, V>(
    program: &'a Program<'a, V>,
) -> Result<Vec<u8>, FlatEncodeError>
where
    V: Binder<'a>,