/* n19tst.pov */

#version 3.8;

global_settings {assumed_gamma 1}

box {0,1}

#include "foreach.inc"

/* will run in a little over 4 minutes here.
 * I don't have the machine to run with three array elements,
 * bailed out when, after ~50m, it hit 60% of (16G) RAM used.
 */
#declare A = array [2] {1,2};
//#declare A = array [3] {1,2,3};

#macro m_S(i_,n_)
  #debug concat(fore_hyphen(19),"> level s, n = ",str(n_,0,0),".\n")
#end

#macro m_R(i_,n_)
  #debug concat(fore_hyphen(18),"> level r, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_S"})
#end

#macro m_Q(i_,n_)
  #debug concat(fore_hyphen(17),"> level q, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_R"})
#end

#macro m_P(i_,n_)
  #debug concat(fore_hyphen(16),"> level p, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_Q"})
#end

#macro m_O(i_,n_)
  #debug concat(fore_hyphen(15),"> level o, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_P"})
#end

#macro m_N(i_,n_)
  #debug concat(fore_hyphen(14),"> level n, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_O"})
#end

#macro m_M(i_,n_)
  #debug concat(fore_hyphen(13),"> level m, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_N"})
#end

#macro m_L(i_,n_)
  #debug concat(fore_hyphen(12),"> level l, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_M"})
#end

#macro m_K(i_,n_)
  #debug concat(fore_hyphen(11),"> level k, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_L"})
#end

#macro m_J(i_,n_)
  #debug concat(fore_hyphen(10),"> level j, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_K"})
#end

#macro m_I(i_,n_)
  #debug concat(fore_hyphen(9),"> level i, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_J"})
#end

#macro m_H(i_,n_)
  #debug concat(fore_hyphen(8),"> level h, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_I"})
#end

#macro m_G(i_,n_)
  #debug concat(fore_hyphen(7),"> level g, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_H"})
#end

#macro m_F(i_,n_)
  #debug concat(fore_hyphen(6),"> level f, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_G"})
#end

#macro m_E(i_,n_)
  #debug concat(fore_hyphen(5),"> level e, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_F"})
#end

#macro m_D(i_,n_)
  #debug concat(fore_hyphen(4),"> level d, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_E"})
#end

#macro m_C(i_,n_)
  #debug concat(fore_hyphen(3),"> level c, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_D"})
#end

#macro m_B(i_,n_)
  #debug concat(fore_hyphen(2),"> level b, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_C"})
#end

#macro m_A(i_,n_)
  #debug concat(fore_hyphen(1),"> level a, n = ",str(n_,0,0),".\n")
  Foreach(A, dictionary {.Macro: "m_B"})
#end

Foreach(A, dictionary {.Macro: "m_A"})