+ (format str "~{~A~^~%~}"
+ (mapcar
+ (lambda (symb)
+ (format t "HAHAHAH ~A ~A~%" symb (get-symb-type symb))
+ (case (get-symb-type symb)
+ (:function (docgen-func:ast->md (docgen-func:doc->ast symb)))
+ (:structure (docgen-struc:ast->md (docgen-struc:doc->ast symb)))))
+ symbs)))))