;; reverse alias
;; /reverse [-s] text => txet
;; $reverse(text) => txet
alias reverse {
var %x = $iif($1 == -s,$2-,$1-),%i,%out
%x = $replace(%x,$chr(32),†) | %i = $len(%x)
while (%i) { %out = %out $+ $mid(%x,%i,1) | dec %i }
%out = $replace(%out,†,$chr(32))
if ($isid) return %out
elseif ($1 == -s) say %out
else echo $color(info) -a %out
}