(program 1.0.0 (case (constr 0)(constr 0(con integer 0))(constr 1(con integer 1))) )