virtual
A::db 'virtual|A::db ~|end virtual|repeat sizeof A|load a:1 from A:%-1|if a=7Eh|load a:%% from A:0|db 27h,a,27h|else if a=7Ch|db 10|else|db a|end if|end repeat'
end virtual
repeat sizeof A
load a:1 from A:%-1
if a=7Eh
load a:%% from A:0
db 27h,a,27h
else if a=7Ch
db 10
else
db a
end if
end repeat    

a
macro a
calminstruction ?!n&
match,n
jyes x
take m,m
arrange m,n
stringify m
emit lengthof m,m
emit 1,10
jno x
assemble n
x:
end calminstruction
a
end macro