DEFA (WORD)     // алгоритм 25
{               // если число букв четно - считать е
  ALGORITHM     // иначе                   считать о
  DEF f
  {
    TE1 -> calc(g(E1))
    FE1 -> calc(t(E1))
  }
  DEF g
  {
    еE1  -> 1+g(E1)
    S1E1 -> g(E1)
    E1   -> 0
  }
  DEF t
  {
    оE1  -> 1+t(E1)
    S1E1 -> t(E1)
    E1   -> 0
  }
  DEF A
  {
    E1 -> f(even(len(E1))E1)
  }
  TESTS
   европеец; егерь; оперетта; оппонент;
   ореол; конвейер; диапозитив; дефект;
   гороскоп; обвинение; оба; обоз; общество;
   очередь; перевод; перерыв; ремесло;
   соловей; соль; тема;
}
