Multiline text using a parser expansion

foo.dylan

Module: foo
Synopsis:
Author:
Copyright: See LICENSE file in this distribution.

define function text-parser (text :: <string>) => (text :: <string>)
  text
end;

define function main (name :: <string>, arguments :: <vector>)
  format-out(#text:{Hello, world!
This is some multi-line text!
And it can include ", ', and many other things.
});
  exit-application(0);
end function main;

main(application-name(), application-arguments());

output.txt

batavia:foo bruce (master) $ ./_build/bin/foo
Hello, world!
This is some multi-line text!
And it can include ", ', and many other things.
batavia:foo bruce (master) $