Объявляю конкурс=)

Умные люди, ответьте, пожалуяста на такие вопросы:
1) на каком языке написан последующий код
2) по какому принципу оно должно работать и в чем идея и соль
%j = жопа
  %i = 1
  %o1 = $mid(%j,1,0)
  %o2 = 1
  while (%i <= 4) {
    if (%i = 3) {
      %o1 = %o2
      %o2 = %o2 * -2
    }
    if (%i > 3) {
      %o1 = $calc(%o2 * 9)
      %o2 = $calc(- %o1 - 10)
    }
    echo -a $chr($calc($asc($mid(%j,%i,1)) - %o1))
    echo -a $chr($calc($asc($mid(%j,%i,1)) - %o2))
    if (%i < 2) %o1 = $calc(- %o2 - %o1 - %o1)
    inc %i
  }