alias gay {
  var %x 1
  set %updown 1
  while (%x >= $len($1-)) {
    if ($left($1,%x) == $chr(32)) {
      inc %x
      goto end
    }
    if (%updown == 1) { set %fm %fm $+ $upper($left($1-,%x)) | set %updown 0 | inc %x }
    else { set %updown 1 | inc %x | goto end }
    :end
  }
  msg $active %fm
  unset %updown
unset %fm
}