b- FutureMapClj edit** - wiki at8a.....

; ; ;{{{ ((defn futuremap [] (handle "futuremap" (fn [] (str "

Das TwentyFirstCentury: ein MoeglichkeitsRaum:

" "" (apply str (map (fn [x] (str "" (apply str (map (fn [y] (str "")) (range 10))) "")) (range 10))) "
20" x y (if (and (= x 1) (= y 9)) (str "
" "" "ZwingeRasimo") ) (if (and (= x 1) (= y 2)) (str "
" "" ;based on ;left: http://de.wikipedia.org/wiki/Datei:081110_Anne_Will.jpg ;right: http://s3.amazonaws.com/twitter_production/profile_background_images/11602667/Ray-Working-Layersv2_copy.jpg "
" "AnneWill Singularity") ) (if (and (= x 3) (= y 0)) (str "
" "" "PhaetonBallett") ) (if (and (= x 4) (= y 0)) (str "
" "" "
" "Lunar Steigenberger") ) (if (and (= x 9) (= y 9)) (str "
" "" "
" "GlobusCassus") ) "
") ) "" ) ))) ;}}}