#!/usr/bin/guile
!#

(import (sph) (sph io))
(display "(list")
(port-lines-each (l (e) (display " ") (write e)) (current-input-port))
(display ")")