weekly report parser

wrp.scm

#! /usr/local/bin/guile \
-e main -s
!#


(define main
  (lambda args
    (let ((wrl (primitive-eval (read))))
      (for-each (lambda (x)
                  (format #t "[~a]:~%" (car x))
                  (if (null? (cdr x))
                      (display "- NULL\n")
                      (for-each (lambda (y)
                                  (format #t "-~a. ~a~%" (car y) (cadr y)))
				(cadr x)))
                  (newline))
		wrl))))