#!/usr/bin/guile \
--debug -s
!#
(define *argv* (program-arguments))
(load "/usr/share/q-tools/q-view.scm")
(qview:process-file (cadr *argv*)
		    qview:write-dot-files (current-output-port) 0 #f)
