#!/usr/bin/guile -s
!#
#!(display "Hello, world!\n")!#

(use-modules (ice-9 rdelim))

#!(let ((x (read)))
  (display (* x x))
  (newline))
!#

(define (read-myline)
  (read-line))

(define (read-lines)
  (let loop ((line (read-line)))
    (if
      (eof-object? line)
      '()
      (cons line (loop (read-line))))))

(define (sum lines)
  (if
    (null? lines)
    0
    (+ (string-length (car lines)) (sum (cdr lines)))
    ))

(display (sum (read-lines)))

#!(let loop ((line (read)))
  (format #t "line: ~a\n" line)
  (display (* line line))
  (if (not (eof-object? line))
    (begin
      (format #t "read next line\n")
      (loop (read)))))!#