alias smilar {
  var %a ewfuog Slm nasılsın naber iyimisin ouvy nasil gidiyor hersey yolundami kzgneim 
  var %b  fibfhss Slm nasılsın naber iyimisin jhkl nasil gibiyor hersey yolundami rujhyca 
  var %i 1
  while %i <= $gettok(%a,0,32) {
    if $gettok(%a,%i,32) != $gettok(%b,%i,32)  {   inc  %y | echo 13 ! %i  $v1 -  $v2   }
    if $gettok(%a,%i,32) == $gettok(%b,%i,32)  { 
      echo 4 = %i  $v1 
      %f = $addtok(%f,$v1,32)
      inc %x     
    }
    inc  %i
  }
  echo 3 :Filtre Regex: $regsubex(%f,/\s+/ig,\t\s)
  echo 3 :Filtre Wildcard: $+(*,$replace(%f,$chr(32),*),*)
  echo 2 :Eslesme: %x / $gettok(%b,0,32)  
  echo 12 :Oransal%: $int($calc(%x *100 / $gettok(%b,0,32))) 
  echo 5 : %a
  echo  4 : %b
  unset %x %y %f
}