Я вот тоже написал. Тут вообще всё русское, начиная от нормальных алгориФмов Маркова. Почему-то в очередь никто не выстраивается. Наверное, потому что не квас.

  Начало = <Палиндром? <удалить пробелы "я разуму уму заря    ">>
           <Палиндром? <удалить пробелы "я иду съ мечемъ судия">>;
                                               * Гавриил Державин
    
  Палиндром? {
     ?символ … ?символ = <Палиндром? …>;
     ?символ           = <Вывод "Палиндром">;
                       = <Вывод "Палиндром">;
             …         = <Вывод "Остаток: "…>;
  }
    
  удалить {
     пробелы .символы " " .остаток = <удалить пробелы .символы .остаток>;
     пробелы … = …;
  }
    
  * явное определение не обязательно.
  пробелы;
    
  Вывод . = <Prout .>;