(lambda (uri)
  (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 important bits:\n"
                 "\n"
                 "* Water your seed at least once in the first 24hrs after planting.\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"
                 "\n"
                 "=> " (uri->string
                        (update-uri uri path: '(/ "microbotany" "view.scm")))
                       " Return to your garden")))))