on *:input:*: {
  if (/* !iswm $1-) {
    var %i 1, %q $1-
    while %i <= $lines(kelimeler.txt) {
      %q = $replace(%q,$gettok($read(kelimeler.txt,%i),1,$asc(=)),$+($chr(3),2,$upper($mid($gettok($read(kelimeler.txt,%i),2,$asc(=)),1,1)),$right($gettok($read(kelimeler.txt,%i),2,$asc(=)),-1)))
      inc %i
    }
    say %q
    halt
  }
}