bedit^at8d.....

(fn[r s](let[t"WdAll"c(.getAttribute r"c")]((:ht c)
[:head[:title t" - b"]]
[:body[:h1 t]
[:a{:href"/ef/WiDaMap"}"edit"]" "
(map(fn[x](list[:a{:href x}x]" "))(.split
"BiWiDa MindWiDa q4 QxCol WiDa WiDa2 WiDa3 WiDaIn WiDaAw65 WiDaAw68 WiHex"" "))
[:table[:tbody(map(fn[e](let[
 ct(count(filter #(=(char 33)%)e))
 l(.split e" ")
 qx(first l)
 t(second l)][:tr[:td
[:a{:style(str"font-size:"(+(* ct 30)99)"%")
 :href(str"/xq/"qx)}qx" "t]]]))
  ((:rl c)"WiDaMap"))]]])))