DEFA (NUMBER)   // алгоритм 37
{               // переворачивание числа - 1
  ALGORITHM
  DEF f  // переворачивание
  {
    S1 -> S1
    S1E1 -> f(E1)S1
  }
  DEF g  // минус 1 от больших чисел
  {
    0                -> calc(2/3)
    E1S1(123456789)  -> E1calc(S1-1)
    E10              -> g(E1)9
  }
  DEF t  // убрать незначащие 0
  {
    0                -> 0
    0E1              -> t(E1)
    E1               -> E1
  }
  DEF A
  {
    E1 -> t(g(f(E1)))
  }
  TESTS
  rnd(10, 60000);
}

