Function parse_ucid 

pub fn parse_ucid(input: &str) -> IResult<&str, Arc<str>>

Parse an uppercase identifier UCID = [A-Z_][A-Z0-9_]*.