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