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