b- FutureMapClj ^{** - 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") ) "

") ) "" ) ))) ;}}}