Tests for Embperl - Recursion via Execute

[* local $deep ; *] [- $deep = $param[0] -] [$if $deep++ < 4 $] Call Execute; deep = [+ $deep +]
[- Execute ('recursexec.htm', $deep) -] End Execute; deep = [+ $deep +]
[$else$] End Recursion; deep = [+ $deep +]
[$endif$] [$if $deep > 5 $] Endless Recursion; deep = [+ $deep +]
[$endif$]