(Program
  (While
    (Send
      (Identifier))
    (Statements))
  (While
    (Send
      (Identifier))
    (Send
      (Identifier))))