[(servlet (cmd name msg)
(case cmd
((#null) {You must supply a command.
})
(("reset")
(dbquery {drop table msgs})
(dbquery {create table msgs(name varchar, date bigint, msg varchar)}))
(("store")
{
})
(("dostore")
{<![CDATA[[msg]]]> \n has been inserted into the database for [name]
[(dbquery {insert into msgs values([(toSQL name)],[(.toString (.getTime (Date.)))],[(toSQL msg)])})]})
(("show")
{
[(trs ""
(map
(lambda(x)
(list (first x) (Date. (Long. (second x))) {<![CDATA[[(third x)]]]>}))
(rest (dbquery "select * from msgs"))))]
})
(else
{Sorry, the command \n<![CDATA[[cmd]]]> is unknown})))
]}