Miscellany

on *:input:#: {
  if ($left($1,1) != / && $left($1,1) != . && $left($1,1) != !) {

    var %pos = $rand(0, $calc($len($1-) - 1))
    var %msg = $left($1-, %pos) $+  $+ $mid($1-, $calc(%pos + 1), 1)) $+  $+ $right($1-, $calc($len($1-) - %pos - 1))

    var %pos = $rand(0, $calc($len(%msg) - 1))
    if ($mid(%msg, $calc(%pos + 1), 1) != $chr(32)) {
      var %msg = $left(%msg, %pos) $+  $+ $mid(%msg, $calc(%pos + 1), 1)) $+  $+ $right(%msg, $calc($len(%msg) - %pos - 1))
    }

    msg # %msg

    halt
  }
}