on *:input:#:{ 
  if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: 
    while %/ <= %= { 
      var %: = $instok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),%/,32) 
      inc %/
      haltdef
    } 
    set %tgf %:
    5 $+ %chr
  } 
}
alias 51 {
  say $regsubex(%tgf,/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2)) 
} 
alias 52 { 
  say  %tgf
}