Mine

alias noty {
  var %s = $regsubex($1-,/(\w)/g,\t $+ $chr(32)), %n = $numtok(%s,32), $&
    %t = $chr(33) $chr(34) $chr(35) $chr(36) $chr(37) $chr(38) $chr(39) $chr(40) $chr(41) $chr(42) $chr(43) $chr(44) $chr(46) $chr(47) $chr(60) $chr(61) $chr(62) $chr(63) $chr(64)
  while (%n) {
    if ($istok(%t,$gettok(%s,%n,32),32)) return 1
    dec %n
  }
}