(Program
{+(Else
    (ForEach
      (
        (Identifier)
        (Identifier))
      (Identifier)
      (
        (Call
          (Identifier)
          (Identifier)
          (Empty))
        (ForEach
          (
            (Identifier)
            (Identifier))
          (Identifier)
          (
            (Call
              (Identifier)
              (Identifier)
              (Empty))))))
    (
      (Call
        (Identifier)
        (Identifier)
        (Empty))))+}
  (ForEach
    (
    { (Identifier)
    ->(Identifier) })
    (Array
      (Tuple
        (Integer))
      (Tuple
        (Integer))
      (Tuple
        (Integer)))
    (
    { (Identifier)
    ->(Identifier) }))
{-(Else
    (ForEach
      (
        (Identifier)
        (Identifier))
      (Identifier)
      (
        (Call
          (Identifier)
          (Identifier)
          (Empty))
        (ForEach
          (
            (Identifier)
            (Identifier))
          (Identifier)
          (
            (Call
              (Identifier)
              (Identifier)
              (Empty))))))
    (
      (Call
        (Identifier)
        (Identifier)
        (Empty))))-})