Try this:

Code:

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 
  }
}



-genius_at_work