alias checkk { var %a = 1,%lev = $iif($1,$1,*) if ($ulist(*,%lev,%a) == 0) echo 4 -a -> 0 results while $ulist(*,%lev,%a) { echo 4 -a -> %a $+($level($v1),:,$v1) inc %a } }