b- CitizensClj edit** - wiki at8a.....

; ;{{{ ;(do ; (Class/forName "org.apache.derby.jdbc.EmbeddedDriver") ; (let ; [con (java.sql.DriverManager/getConnection"jdbc:derby:base;create=true" "SYSDBA" "masterkey") ; stmt (.createStatement con)] ; (str ; " ; " ; ((defn recurs [rs] ; (if (.next rs) ; (str " ; " ; (recurs rs)) )) ; (.executeQuery stmt "select * from user_ order by baseid desc")) ; "
IDCitiZen
" ; (.getInt rs "id") "" ; (.getString rs "wikiname") "
"))) ((defn citizens [] (handle "citizens" (fn [] (str "
" (apply str (map (fn [x] (str "" (apply str (map (fn [y] (str "")) (range 8))) "")) (range 8))) "
" (if (and (< y 8) (= x 0)) (let [person (get ["RainerWasserfuhr" "YvonneSchubert" "DanielPoodratchi" "RicardaDHerbrand" "ChristineSchlinck" "HeidiGallinat" "RalfLippold" "SimonKoeppl" "UteMoritz" ] (- 7 y))] (str "" "" ) ) ) "
" )) "")) ) ;}}}