feat(charka): EVALUATE — el case de COBOL

EVALUATE atraviesa el pipeline entero — antes el parser lo guardaba
crudo como Stmt::Unknown.

- IR: Stmt::Evaluate { subject, whens, other } con
  WhenBranch { values, body }. Varios WHEN apilados comparten cuerpo;
  WHEN OTHER es el caso por defecto.
- Parser: EVALUATE subject WHEN v1 WHEN v2 ... [WHEN OTHER ...]
  END-EVALUATE.
- Codegen: lo baja a una cadena if / else if / else — una rama se
  elige si el sujeto es igual a alguno de sus valores, sin caída.
- Shadow: el intérprete evalúa el sujeto y ejecuta la primera rama
  cuyos valores casen, o el WHEN OTHER.
- Corpus: programa nuevo 09-evaluar (EVALUATE por valor anidado en un
  PERFORM VARYING, con WHEN apilados y WHEN OTHER). Verificado: el
  intérprete sombra y el crate compilado por scaffold dan la misma
  salida.

Alcance v1: EVALUATE por igualdad de valor; no la forma EVALUATE TRUE
con condiciones ni los rangos THRU.

Tests: charka-ir 19, charka-codegen 16, charka-shadow 14. fmt +
clippy limpios.

Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>

crates/modules/charka/corpus/09-evaluar.cob

@@ -0,0 +1,24 @@
+* corpus charka — nivel 5: EVALUATE, el case de COBOL
+IDENTIFICATION DIVISION.
+PROGRAM-ID. EVALUAR.
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01 WS-DIA PIC 9(1) VALUE 0.
+PROCEDURE DIVISION.
+MAIN.
+    PERFORM VARYING WS-DIA FROM 1 BY 1 UNTIL WS-DIA > 5
+        EVALUATE WS-DIA
+            WHEN 1
+                DISPLAY 'LUNES'
+            WHEN 2
+                DISPLAY 'MARTES'
+            WHEN 3
+                DISPLAY 'MIERCOLES'
+            WHEN 6
+            WHEN 7
+                DISPLAY 'FIN DE SEMANA'
+            WHEN OTHER
+                DISPLAY 'OTRO DIA'
+        END-EVALUATE
+    END-PERFORM.
+    STOP RUN.

crates/modules/charka/corpus/09-evaluar.expected

@@ -0,0 +1,5 @@
+LUNES
+MARTES
+MIERCOLES
+OTRO DIA
+OTRO DIA

crates/modules/charka/corpus/README.md

@@ -17,6 +17,7 @@ salida correcta, una línea por `DISPLAY`.
 | `06-nomina`         | 5     | grupos, `COMPUTE` con paréntesis, `ROUNDED`, V99   |
 | `07-clasificar`     | 5     | `IF` anidado, condiciones con `AND`                |
 | `08-varying`        | 4     | `PERFORM VARYING` — el bucle con variable de control|
+| `09-evaluar`        | 5     | `EVALUATE` — el `case` de COBOL, `WHEN` / `OTHER`  |
 
 ## Formato