(let ((query (uri-query uri)))
(if (null? query)
(print "No account specified.")
(begin
(serve-document-header (ext->mime "gmi"))
(print "# Caring for your plant\n\n"
(let ((query (uri-query uri)))
(if (null? query)
(print "No account specified.")
(begin
(serve-document-header (ext->mime "gmi"))
(print "# Caring for your plant\n\n"
"* Important: Plants that are not watered for 5 days will die!\n"
"\n"
"Heed these rules and your plant will thrive!\n"
"* Important: Plants that are not watered for 5 days will die!\n"
"\n"
"Heed these rules and your plant will thrive!\n"