alias reverse { if ($1-) { var %x = 0 while (%x < $len($1-)) { inc %x 1 var %string = $mid($1-,%x,1) $+ %string } return %string } }