(Program
  (While
    (Not
      (Identifier))
    ([]))
  (While
    (Not
      (Identifier))
    (Identifier)))