Code:
on *:input:*:{
  if (/* iswm $1) || !$ctrlenter { return }
  var %a = $1-
  while $istok(%a,i,32) { %a = $reptok(%a,i,ich,1,32) }
  while $istok(%a,am,32) { %a = $reptok(%a,am,bin,1,32) }
  
  ;and so on ...

  msg $active %a
  halt
}