(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)-})-})-})-})