alias cm {
  var %msg $replace($1-,$chr(32),_)
  var %x 1
  while (%x < $calc($len(%msg) + 1)) {
    if (%x == 1) {
      set %out  $+ $rand(2,15) $+ $upper($left(%msg,1))
    }
    else {
      if ($int($calc(%x / 2)) == $calc(%x / 2)) {
        set %out %out $+  $+ $rand(2,15) $+ $lower($right($left(%msg,%x),1))
      }
      else {
        set %out %out $+  $+ $rand(2,15) $+ $upper($right($left(%msg,%x),1))
      }
    }
    inc %x
  }
  if ($isid == $true) { return $replace(%out,_,$chr(32)) }
  else { say $replace(%out,_,$chr(32)) }
}