(Program
  (While
  { (Not
    {-(Identifier)-})
  ->(Identifier) }
    (Break
      (Empty))))