#!hacguile -b
!#
;; "031a-02.hacscm"
;;	$Id: 031a-02.hacscm,v 1.3 2007/04/20 18:27:50 fang Exp $
;; vi: ft=scheme
;; @haco@ 031a.haco-a

;; (define (print-canonical-newline x) (print-canonical-reference x) (newline))

;; (for-each print-canonical-newline
;;   (collect-reference-subinstances (parse-raw-reference "load"))
;; )
(hac:collect-reference-subinstances (hac:parse-raw-reference "load"))

(map hac:canonical-reference->string
   (hac:collect-reference-subinstances (hac:parse-raw-reference "load"))
)

