Function parse_program 

pub fn parse_program<'a>(
    arena: &'a Arena,
    input: &'a str,
) -> ParseResult<&'a Program<'a, DeBruijn>, Rich<'a, char>>