19 lines
454 B
Plaintext
19 lines
454 B
Plaintext
macro utf8-not-ascii is
|
|
(["%16r{C0}" to "%16r{DF}"] ["%16r{80}" to "%16r{BF}"] |
|
|
["%16r{E0}" to "%16r{EF}"] ["%16r{80}" to "%16r{BF}"] {2} |
|
|
["%16r{F0}" to "%16r{F7}"] ["%16r{80}" to "%16r{BF}"] {3}) macro-end
|
|
|
|
global stream reverse initial {''}
|
|
|
|
process
|
|
submit 'as⃝df̅'
|
|
|
|
find (any-text utf8-not-ascii) => char
|
|
set reverse to char || reverse
|
|
|
|
find any-text => char
|
|
set reverse to char || reverse
|
|
|
|
process-end
|
|
output reverse || '%n'
|