report-repair/main.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/run/current-system/profile/bin/guile \
-e main -s
!#

(use-modules (rr)
	     ((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 " "))))))

(define (main args)
  (display (rr (stdin-to-str)))
  (newline))