on *:input:*:if ($1 != $target && $1 !ison $target && $left($1,1) != /) { say $regsubex($1-,(^.),$upper($replace(\1,i,İ,ı,I))) | haltdef }