#1 'i :=
#0 'j :=
{ duplicate$ i #1 substring$ "" = not }
- { duplicate$ i #1 substring$ quote$ =
+ { duplicate$ duplicate$ i #1 substring$ quote$ =
+ swap$ i #1 - #1 substring$ "\" = not and %"
{ duplicate$ #1 i #1 - substring$ swap$
i #1 + global.max$ substring$
j