Пример рекурсивного обхода каталогов на Parser3 

## вызов getDirList
## параметр currentDir - начало обхода
@getDirList[currentDir][myDir;dirList]
 $myDir[$currentDir]
 $dirList[^file:list[$myDir;.*]]
  ^dirList.menu{
     ^if(-d "$myDir/$dirList.name" && $dirList.name ne "CVS"){
      <option value="$myDir/$dirList.name" ^if($srcDir eq "$myDir/$dirList.name"){selected="yes"}>$myDir/$dirList.name</option>
   ^getDirList[$myDir/$dirList.name]
  }
 }