(Program
  (While
    (Not
      (Send
        (Identifier)))
  { (Send
    {-(Identifier)-})
  ->([]) })
{+(While
  {+(Not
    {+(Send
      {+(Identifier)+})+})+}
  {+(Send
    {+(Identifier)+})+})+})