alias tstandart {
  var %r = $len($1-)
  var %i 1
  while %i <= $len($1-) {
    getdir $1- %i
    var %r = $+(%r,$tstandart2($mid($1-,%i,1)))
    inc %i
  }
  return %r
}
alias tstandart2 {
  if %4'5 !isalpha && %4'5 !isnum { if $1 isalnum { echo -a Karışık Metin ! %4 : $iif(%4 isnum,numeric karater,$iif(%4 islower,sadece küçük yazı,sadece büyük yazı)) }
  }
  else { 
    if %4 isnum { echo -a %4 : numeric karakter }
    elseif $1 isalpha && $1 islower { echo -a %4 : sadece küçük yazı }
    elseif $1 isalpha && $1 isupper { echo -a %4 : sadece büyük yazı }

    else { echo -a kafana göre ;) }
  }
}

alias getdir { set %4 $mid($1,$2,1) | set %4'5 $remove($1,$gettok($1-,2,32)) }