Anonymous

alias basic6 {
  var %x = 1,%a
  while (%x <= $len($1)) {
    %a = %a $+ $chr($calc($asc($mid($1,%x,1)) - ( %x - 1 )))
    inc %x
  }
  echo -ga %a
}