(body (ul (map li (list "one" "two" "three"))) (let ((attributes (list 'start "3")) (contents (map li (list "one" "two" "three")))) (ol 'id "demo" contents attributes))) ) )
<body> <ul><li>one</li> <li>two</li> <li>three</li></ul> <ol id="demo" start="3"><li>one</li> <li>two</li> <li>three</li></ol> </body>