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