on *:text:!badsil &:#kontrol:if $read(kufurler.txt,w,$2) { write $+(-dl,$readn) kufurler.txt }