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