(Program
  (While
  { (Identifier)
  ->(Identifier) }
    (ExpressionStatements
      (ExpressionStatements
        (FunctionCall
        { (Identifier)
        ->(Identifier) })))))