(lambda (uri)
- (import (chicken file)
- (chicken pathname)
- (chicken string)
- uri-common)
(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"
- "Growing a healthy plant is a big job! Here are the essential points:\n"
+ "Growing a healthy plant is a big job! Here are the important bits:\n"
"\n"
"* Water your seed at least once in the first 24hrs after planting.\n"
- "* Water your plants every day, otherwise its growth may be stunted.̱\n"
+ "* To keep your plant growing nicely, be sure to water it every day.\n"
"* Important: Plants that are not watered for 5 days will die!\n"
"\n"
"Heed these rules and your plant will thrive!\n"