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"]" "
[:a{:href"/BiWiDa"}"BiWiDa"]" "
[:a{:href"/MindWiDa"}"MindWiDa"]" "
[:a{:href"/q4"}"q4"]" "
[:a{:href"/QxCol"}"QxCol"]" "
[:a{:href"/WiDa"}"WiDa"]
[:a{:href"/WiDa2"}"WiDa2"]" "
[:a{:href"/WiDa3"}"WiDa3"]" "
[:a{:href"/WiDaIn"}"WiDaIn"]" "
[:a{:href"/WiDaAw65"}"WiDaAw65"]" "
[:a{:href"/WiDaAw68"}"WiDaAw68"]" "
[:a{:href"/WiHex"}"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"))]]])))