;; -*- compile-command: "guile -L . -e main -s main.scm < input.txt"; -*-
(use-modules (pp)
	     ((ice-9 rdelim))
	     (ice-9 binary-ports))


(define (stdin-to-str)
  (let loop ((result ""))
    (let ((line (read-line)))
      (if (eof-object? line)
	  result
	  (loop (string-append result line "\n"))))))

(define (main args)
  (let ((result
	 (if (null? (cdr args))
	     (pp (stdin-to-str) #t)
	     (pp (stdin-to-str) #f))))
    (display result))
  (newline))