Print a list of strings in Mercury lang

Here's a quick gist for printing a list of strings out in Mercury lang. I found that I needed this when learning the language. Maybe you do too.

Is there a better way to do this? Of course there is, I just haven't learned it yet. For example there is the pretty_printer library which probably can do exactly this. I'll make a new gist when I figure out how to use the pretty_printer.

$ mmc --make printlist
$ ./printlist
  ["This", "is", "a", "list"]

social