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$]