rendered paste bodyCG-USER(46): (pascal 5)
0[6]: (PASCAL 5)
1[6]: (GENERATE-LIST (1) #<Interpreted Function GET-NEXT-ROW> 5)
2[6]: (GET-NEXT-ROW (1))
3[6]: (GET-NEXT-ROW-SEQ (1))
3[6]: returned (1)
2[6]: returned (1 1 1)
2[6]: (GENERATE-LIST (1 1 1) #<Interpreted Function GET-NEXT-ROW> 4)
3[6]: (GET-NEXT-ROW (1 1 1))
4[6]: (GET-NEXT-ROW-SEQ (1 1 1))
5[6]: (GET-NEXT-ROW-SEQ (1))
5[6]: returned (1)
4[6]: returned (2 1)
3[6]: returned (1 2 1 1)
3[6]: (GENERATE-LIST (1 2 1 1) #<Interpreted Function GET-NEXT-ROW> 3)
4[6]: (GET-NEXT-ROW (1 2 1 1))
5[6]: (GET-NEXT-ROW-SEQ (1 2 1 1))
6[6]: (GET-NEXT-ROW-SEQ (1 1))
7[6]: (GET-NEXT-ROW-SEQ NIL)
7[6]: returned (1)
6[6]: returned (2 1)
5[6]: returned (3 2 1)
4[6]: returned (1 3 2 1 1)
4[6]: (GENERATE-LIST (1 3 2 1 1) #<Interpreted Function GET-NEXT-ROW> 2)
5[6]: (GET-NEXT-ROW (1 3 2 1 1))
6[6]: (GET-NEXT-ROW-SEQ (1 3 2 1 1))
7[6]: (GET-NEXT-ROW-SEQ (2 1 1))
8[6]: (GET-NEXT-ROW-SEQ (1))
8[6]: returned (1)
7[6]: returned (3 1)
6[6]: returned (4 3 1)
5[6]: returned (1 4 3 1 1)
5[6]: (GENERATE-LIST (1 4 3 1 1) #<Interpreted Function GET-NEXT-ROW> 1)
6[6]: (GET-NEXT-ROW (1 4 3 1 1))
7[6]: (GET-NEXT-ROW-SEQ (1 4 3 1 1))
8[6]: (GET-NEXT-ROW-SEQ (3 1 1))
9[6]: (GET-NEXT-ROW-SEQ (1))
9[6]: returned (1)
8[6]: returned (4 1)
7[6]: returned (5 4 1)
6[6]: returned (1 5 4 1 1)
6[6]: (GENERATE-LIST (1 5 4 1 1) #<Interpreted Function GET-NEXT-ROW> 0)
6[6]: returned NIL
5[6]: returned ((1 4 3 1 1))
4[6]: returned ((1 3 2 1 1) (1 4 3 1 1))
3[6]: returned ((1 2 1 1) (1 3 2 1 1) (1 4 3 1 1))
2[6]: returned ((1 1 1) (1 2 1 1) (1 3 2 1 1) (1 4 3 1 1))
1[6]: returned ((1) (1 1 1) (1 2 1 1) (1 3 2 1 1) (1 4 3 1 1))
0[6]: returned ((1) (1 1 1) (1 2 1 1) (1 3 2 1 1) (1 4 3 1 1))
((1) (1 1 1) (1 2 1 1) (1 3 2 1 1) (1 4 3 1 1))