(Program
  (Case
    (Identifier)
    (When
      (Args
        (Identifier))))
  (Case
    (When
      (Args
        (Boolean))
      (StringLiteral))))