// This file was generated by DAJ from program.cd.

X = "(" <a> A [ <a_List> A_List ] ")".
A = <ident> Ident.
A_List ~  { A  } .