Ловите транслитер на парсере

@transliter
^rem[$1
^var[old;^mid[$1;1;1]]
^var[old]]
^context[trans;^config[а a
б b
в v
г g
д d
е e
ё yo
ж zh
з z
и i
й j
к k
л l
м m
н n
о o
п p
р r
с s
т t
у u
ф f
х h
ц c
ч ch
ш sh
щ shch
ъ `
ы y
ь '
э e`
ю yu
я ya]

^var[rezult;]^rem[длина^length[$1]]
^for[i;0;^length[$1];
^var[old;^mid[$1;^var[i];1]]
^menu[
^eq[^var[old];^item[0];
^var[rezult;.;^item[1]];
]
]
]
^var[rezult]

]

вызывается
^macro[transliter;папараци]
результат
paparaci