#!/usr/bin/env gsi-script
(display "HTTP/1.0 200 OK\n\n")
(display "\n")
(display "\n")
(display "
\n")
(display "\n")
(display "🌐 CYBERSPACE MOSAIC 🌐\n")
(display "\n")
(display "\n")
(display "\n")
(display "\n")
(display "\n")
(let ((cybermen (directory-files "/home")))
(for-each (lambda (cyberman)
(display (string-append
"
\n")))
cybermen))
(display "
\n")
(display "\n")
(display "
The cyberspace mosaic has been generated automatically with this script.
")
(display "
\n")
(display "\n")
(display "\n")