1 #include "tpl.h"
2 
main()3 int main() {
4     tpl_node *tn;
5     int i,j;
6 
7     tn = tpl_map("A(A(i))",&j);
8 
9     for(i=2;i<4;i++) {
10 
11         for(j=i; j < 10*i; j *= i) {
12             tpl_pack(tn,2);
13         }
14         tpl_pack(tn,1);
15     }
16 
17     tpl_dump(tn, TPL_FILE, "/tmp/test37.tpl");
18     tpl_free(tn);
19     return(0);
20 }
21