on *:input:*:{
  if /* !iswm $1- {
    if $window($active).type == channel {
      if ($1- == nbr) { say 4N12a10B4e12R | halt }
      if ($1- == slm) { say 4S12e10L4a12m | halt }
      if ($1- == a.s) { say 4A12L10e14y4k12u10m 4S12e10L14a12m | halt }
      if ($1- == s.a) { say 4S12e10L14a4m12u10n 4A12L10e14y4k12u10m | halt }
      if ($1- == efem) { say 4E12f10e14m | halt }
      if ($1- == bye) { say 4P12a10a4i 4P12a10a4i | halt }
      .haltdef
      say $replace($1-,; $+ $chr(41),;= $+ $chr(41),: $+ $chr(41),:= $+ $chr(41),:D,:=D,: $+ $chr(40),:= $+ $chr(40),; $+ $chr(40),;= $+ $chr(40),:@,:=@,:L,:-L,:B,:-B,;D,;-D,:F,:=F,:G,:=G,:M,:=M,:O,:=O,:P,:=P,:R,:=R,:S,:=S ,:U,:=U,kalp,¿ğ¿)
    }
    if $window($active).type == query {
      if ($1- == nbr) { say 4N12a10B4e12R | halt }
      if ($1- == slm) { say 4S12e10L4a12m | halt }
      if ($1- == a.s) { say 4A12L10e14y4k12u10m 4S12e10L14a12m | halt }
      if ($1- == s.a) { say 4S12e10L14a4m12u10n 4A12L10e14y4k12u10m | halt }
      if ($1- == efem) { say 4E12f10e14m | halt }
      if ($1- == bye) { say 4P12a10a4i 4P12a10a4i | halt }
      .haltdef
      say $replace($1-,; $+ $chr(41),;= $+ $chr(41),: $+ $chr(41),:= $+ $chr $+ $chr(41),:D,:=D,: $+ $chr(40),:= $+ $chr(40),; $+ $chr(40),;= $+ $chr $+ $chr(40),:@,:=@,:L,:-L,:B,:-B,;D,;-D,:F,:=F,:G,:=G,:M,:=M,:O,:=O,:P,:=P,:R,:=R,:S,:=S ,:U,:=U,kalp,¿ğ¿)
    }
  }
}