Show the content of the given host and URL.

html.scm

; refer the nth element of list)
(define (list-ref lst n)
  (cond
    ((null? lst) "Out of range")
    ((= 0 n) (car lst))
    (else (list-ref (cdr lst) (- n 1)))
  )
)

; Read string from input-port
(define (read-port p)
  (let loop((ls1 '()) (c (read-char p)))
    (if
      (eof-object? c)(list->string (reverse ls1))
      (loop (cons c ls1) (read-char p))
    )
  )
)

; This code shows the body of http://utgw.net/.
(require net/http-client)
(define host "utgw.net")
(define iport
  (list-ref (call-with-values (lambda () (http-sendrecv host "/")) list) 2)
)

(display (read-port iport))
(close-input-port iport)