(defsnippet list2 "list.html" [:body :> any-node] [list]
  [:h2.list-title] (content (:title list))
  [:li.step] (clone-for [[type id] (:elements list)]
			(content
			 (condp = type
			     "step" (:text (get-step id))
			     "list" (list2 (get-list id))
			     type))))


(defsnippet list1 "list.html" [:body :> any-node] [list]
  [:h2.list-title] (content (:title list1))
  [:li.step] (clone-for [[type id] (:elements list1)]
			(content
			 (condp = type
			     "step" (:text (get-step id))
			     "list" (list2 (get-list id))
			     type))))