["%%progn",["push-userspace",["print",["qua-string","Welcome to Qua!"]],["print",["qua-string","Press ENTER to evaluate the current line in Qua."]],["let",[["env",["the-environment"]]],["block","quit",["restart-bind",[["quit",["lambda",[],["print",["qua-string","Goodbye!"]],["return-from","quit"]]]],["loop",["block","abort",["restart-bind",[["abort",["lambda",[],["print",["qua-string","Aborting"]],["return-from","abort"]]]],["let",[["forms",["read"]]],["prin1",["eval",["list*",["qua-function","progn"],"forms"],"env"]]]]]]]]]]]