## PROGRAM

# program entry
<< 1 >> dup eval
-> stack should be << 1 >>, 1
erase

# program imbrication
<< 1 << 2 >> >>
-> stack should be << 1 << 2 >> >>
erase

# program evaluation
<< 1 << 2 >> >> dup eval
-> stack should be << 1 << 2 >> >>, 1, << 2 >>
erase

# program 1 arg
default
10
<< -> n << 0 1 n for i i 2 * inv + next >> >>
eval
-> stack should be 1.4644841269841269841
erase

# program several args
0 1 10 << -> u0 u1 n << u0 u1 1 n start dup2 + rot drop next swap drop >> >> eval
eval
-> stack should be 89