(Program
{+(Negate
  {+(Identifier)+})+}
{+(Identifier)+}
  (Complement
  { (Identifier)
  ->(Identifier) })
{-(Negate
  {-(Identifier)-})-}
{-(Identifier)-})