(defun todo-page ()
  (multiple-value-bind (s m h) (get-decoded-time)
    (with-html-output-to-string (*standard-output* nil)
      (:html (:body  (:h1 (fmt (format nil "The time at suxos.org be: ~2,'0d:~2,'0d:~2,'0d" h m s))))))))