DEFA (WORD)     // алгоритм 47
{               // число первых букв в слове
  ALGORITHM     // автор: Я.Н.Зайдельман
  DEF f
  {
     E1#S1#S1E2 -> f(E1+1#S1#E2)
     E1#S1#S2E2 -> f(E1#S1#E2)
     E1#S1#E2   -> E1
  }
  DEF A
  {
     S1E1       -> calc(f(0#S1#E1))
  }
  TESTS
  африканец; батарея; вешалка; взрыв; вождь; возмущение;
  евангелие; осколок; абракадабра; вправо; вывих; ежедневно;
  жужжать; иммиграция; истина; кукареку; какао; кресло;
  лиловый; максимум; сейсмический; тетрадка; шушера; шиш;
}
