DEFA (SET)      // алгоритм 30
{               // N = число "дырок"
  ALGORITHM
  DEF f
  {
    S1(649абдеоръыьюя)E1 -> 1+f(E1)
    S1(08вф)E1         -> 2+f(E1)
    S1E1            -> f(E1)
    E1              -> 0
  }
  DEF A
  {
    E1 -> calc(f(E1))
  }
  TESTS
  rnd(0,100000);
  8086; ил62; молоко; магнитофон; лопата; луг; речка;
  профессия; айболит66; школа38; стойло80; ящик247;
  567; 109856; 7085664; 75; 5647; 4568; 879; 764; 6784;
  грабитель; рассеянный; кофе; фея; типография; скорбь;
}

