6 (let ((query (uri-query uri)))
8 (print "No account specified.")
10 (serve-document-header (ext->mime "gmi"))
11 (print "# Caring for your plant\n\n"
12 "Growing a healthy plant is a big job! Here are the essential points:\n"
14 "* Water your seed at least once in the first 24hrs after planting.\n"
15 "* Water your plants every day, otherwise its growth may be stunted.̱\n"
16 "* Important: Plants that are not watered for 5 days will die!\n"
18 "Heed these rules and your plant will thrive!\n"
21 (update-uri uri path: '(/ "microbotany" "view.scm")))
22 " Return to your garden")))))