: 38

alias uzunluk {
  if !$1 { return }
  var %m, %n, %z
  :x
  if (%m iswm $1) return %z
  else {
    var %m %m $+ ?
    inc %z
    goto x
  }
}