alias trim {
  var %a $1-
  while ($left(%a, 1) == $chr(32)) {
    var %a $right($1-, -1)
  }
  while ($right(%a, 1) == $chr(32)) {
    var %a $left($1-, -1)
  }
  return %a
}