(lambda (l) (car l))) (else s))) (string-split (table:get (request-rec:subprocess-env Request) "HTTP_ACCEPT_LANGUAGE") #\,))) (string-append ellinika-document-root "/" ellinika-default-language)))) (with-input-from-file (string-append (get-dir-name) "/intro.html") (lambda () (do ((line (read-line) (read-line))) ((eof-object? line)) (display line) (newline)))) ?>