alias iml {
  var %s $+(qw,$r(1,999)) | .comopen %s Word.Application
  noop $com(%s, CheckSpelling, 3, bstr, $1-) | var %q $com(%s).result
  if !%q   { var %q1 1 
    while %q1 <= $0 { if $com(%s, CheckSpelling, 3, bstr, $($+($,%q1),2)) {
        var %d $com(%s).result 
        if %d { echo -a Bu doğru: $($+($,%q1),2) } 
        else { echo -a Bu yanlış: $($+($,%q1),2) } 
        inc %q1
      }  
    }
  }
  else { echo -a Cümle tamamen doğru. }
  noop $com(%s,Quit,1)
  .comclose %s
}

/iml Şu an da imla kurallarına uyuyorum.

>> Cümle tamamen doğru.

/iml Yanlışşş yazımm hatası buu

>> Bu yanlış: Yanlışşş
>> Bu yanlış: yazımm
>> Bu doğru: hatası
>> Bu yanlış: buu