$ cat foo.qck
(print "Hello, world!")
M-x gen-foo
M-! parrot /tmp/quackfoo.pir
Hello, world!
$ cat /tmp/quackfoo.pir
# -*- mode: pir -*-
# auto-generated PIR from Quack Lisp code.
# For more info, see http://cvs.codeyard.net/Quack.

include "quacklib.pir"

#.namespace ["quack"]

.sub main :main :lex
  init_quack()
  $P1 = find_global "PRINT"
  $P2 = new "LispString"
  $P2 = "Hello, world!"
  $P3 = new FixedPMCArray
  # QAST tail call
  .return $P1($P2, $P3 :flat)
.end

# Local Variables:
# compile-command: "parrot quackfoo.pir"
# End:

:-D