on 1:input:#: {
  set %filt $1-
  if ($left($1,1) == /) { $1- | halt }  
set %talk $1-
    if (a isin %talk) { set %talk $replace(%talk,a,Ä) }
    if (b isin %talk) { set %talk $replace(%talk,b,ß) }
    if (c isin %talk) { set %talk $replace(%talk,c,©) }
    if (d isin %talk) { set %talk $replace(%talk,d,Ð) }
    if (e isin %talk) { set %talk $replace(%talk,e,é) }
    if (g isin %talk) { set %talk $replace(%talk,g,G) }
    if (i isin %talk) { set %talk $replace(%talk,i,ï) }
    if (l isin %talk) { set %talk $replace(%talk,l,£) }
    if (n isin %talk) { set %talk $replace(%talk,n,N) }
    if (o isin %talk) { set %talk $replace(%talk,o,Ø) }
    if (p isin %talk) { set %talk $replace(%talk,p,þ) }
    if (r isin %talk) { set %talk $replace(%talk,r,®) }
    if (s isin %talk) { set %talk $replace(%talk,s,§) }
    if (t isin %talk) { set %talk $replace(%talk,t,†) }
    if (u isin %talk) { set %talk $replace(%talk,u,Ú) }
    if (y isin %talk) { set %talk $replace(%talk,y,¥) }
    haltdef
privmsg $chan %talk
}
}