alias Ters {
  var %t = 1
  while (%t <= $len($1-)) {
    set -u %Tr $mid($1-,%t,1) $+ %Tr
    inc %t
  }
  msg $active %Tr
}
alias Cins {
  if ($left($1,1) == /) { $1- | halt }
  haltdef
  set %Tr 1
  while (%Tr <= $len($1-)) {
    msg $active $left($1-,%Tr)
    inc %Tr
  }
}