;inizio

0 X _ R Xzzz ;trovato X come primo carattere
0 Y _ R Yzzz ;trovato Y come primo carattere
0 _ S * halt-si


Xzzz * * R Xzzz ;vai a destra fino a trovare _
Xzzz _ * L zzzX ;spostati a sinistra per cancellare la X

zzzX X _ L go_start ; cancella la X e vai a sinistra
zzzX Y _ L canc_all ; non è un palindromo->cancella tutto
zzzX _ * * 0

canc_all * _ L canc_all ;cicla nello stesso stato finchè non trova _
canc_all _ N * halt-no ;scrivi no e stop


Yzzz * * R Yzzz ;vai a destra fino a trovare _
Yzzz _ * L zzzY ;spostati a sinistra per cancellare la Y

zzzY Y _ L go_start ; cancella la Y e vai a sinistra
zzzY X _ L canc_all ; non è un palindromo->cancella tutto
zzzY _ * * 0


go_start * * L go_start ;continua a a spostarti a sinistra
go_start _ _ R 0 ; quando trovi _ vai destra e ricomincia