alias gay {
  var %x 1
  while (%x <= $len($1-)) {
    if ($asc($mid($1-,%x,1)) == 32) {
      set %fm %fm $+ $chr(160)
      inc %x
      continue
    }
    elseif ($isbit(%x,1)) { set %fm %fm $+ $upper($mid($1-,%x,1)) }
    else { set %fm %fm $+ $mid($1-,%x,1) }
    inc %x
  }
  return $replace(%fm,$chr(160),$chr(32))
  unset %fm
}