DEFA (NUMBER)  // алгоритм 48
{              // каждые две цифры слева направо
  ALGORITHM    // заменяются на модуль их разности
               // последняя непарная цифра остается на месте
  DEF f  // модуль разности двух цифр
  {
     E1     -> calc(max(E1) - min(E1))
  }
  DEF t  // убрать незначащие нули
  {
     0      -> 0
     0E1    -> t(E1)
     E1     -> E1
  }
  DEF g
  {
     S1S2E1 -> f(S1S2)g(E1)
     E1     -> E1
  }
  DEF A
  {
     E1     -> t(g(E1))
  }
  EXAMPLES
  23; 2323; 46; 4646;
  TESTS
  rnd(1, 60000);
}
