alias asciiform {
  set %stuffsies $$1-
  while ($len(%stuffsies) > 0) {
    set %character $left(%stuffsies,1)
    set %finalresult %finalresult $+ $chr( $+ $asc(%character) $+ ),
    set %stuffsies $right(%stuffsies,-1)
  }
  set %finalresult $remove(%finalresult,)
  set %finalresult $left(%finalresult,-1)
  echo -a %finalresult
  unset %finalresult
}