b- ForexClj edit** - wiki at8a.....

; ; ;{{{ ((defn forex [] (handle "forex" (fn [] (str "" (apply str (map (fn [x] (str "

" x "

" "TwitterPic :RainerWasserfuhr) "' width='64' height='64'/>" " ")) (if (> (.length (.getRequestURI request)) (.length "/radio/")) (let [name (.substring (.getRequestURI request) (.length "/radio/"))] [name]) ["MindQuestOne"]))) "
") ) "")))) ;}}}