clarified argument formats: explicit Unit, allow XML.Elem as well;
tuned messages: prefer single quotes for JSON output;
theory ToyList_Test
imports Main
begin
ML \<open>
let val text =
map (File.read o Path.append (Resources.master_directory @{theory}) o Path.explode)
["ToyList1.txt", "ToyList2.txt"]
|> implode
in Thy_Info.script_thy Position.start text @{theory} end
\<close>
end