string ts1 = """
this
"string"\thing"""

string ts2 = """this
"string"\thing"""

string ts3 = """
_____________this
             "string"\thing"""

string ts4 = `
this
"string"\thing`

string ts5 = `this
"string"\thing`

string ts6 = `
_____________this
             "string"\thing`

string ts7 = "this\n\"string\"\\thing"

constant tests={ts1,ts2,ts3,ts4,ts5,ts6,ts7}
for i=1 to length(tests) do
    for j=1 to length(tests) do
        if tests[i]!=tests[j] then crash("error") end if
    end for
end for
printf(1,"""
____________Everything
            (all %d tests)
            works
             just
            file.""",length(tests))
printf(1,"""`""")
printf(1,`"""`)