(Program
  (Case
    (Identifier)
    (When
      (Other "pattern"
        (Identifier)))))