(for-each eval (with-input-from-file "garden.scm" read-list))
(let ((query (uri-query uri)))
(if (null? query)
(serve-query "User name")
(let* ((username (symbol->string (caar query)))
(hash (string->sha1sum (conc username
(for-each eval (with-input-from-file "garden.scm" read-list))
(let ((query (uri-query uri)))
(if (null? query)
(serve-query "User name")
(let* ((username (symbol->string (caar query)))
(hash (string->sha1sum (conc username