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