(Program
  (Comprehension
  { (Identifier)
  ->(Identifier) }
    (
      (
        (
        {+(Identifier)+}
        {-(Identifier)-})
      {+(Identifier)+}
      {-(Identifier)-})
    {-(
      {-(Call
        {-(Identifier)-}
        {-(Empty)-})-})-}
    {-(
      {-(
        {-(Identifier)-})-}
      {-(Identifier)-})-}
    {-(
      {-(Call
        {-(Identifier)-}
        {-(Empty)-})-})-}))
  (Comprehension
  { (Plus
    {-(Identifier)-}
    {-(Integer)-})
  ->(Identifier) }
    (
      (
        (
        {+(Identifier)+}
        {-(Identifier)-})
      {+(Identifier)+}
      {-(Identifier)-})
    {+(
      {+(Identifier)+})+})))