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