(Statements
  (While
    (Send
      (Identifier))
  { (Send
    {-(Identifier)-})
  ->(Statements) })
{+(While
  {+(Send
    {+(Identifier)+})+}
  {+(Send
    {+(Identifier)+})+})+})