on *:INPUT:* { if (/* !iswm $1) { msg $active $replace($1-,a,a,b,B,c,c,d,D,e,E,f,F,g,g,k,K,l,L,o,o,p,P) halt } }