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