+(define (random-bool)
+ (= (random 2) 1))
+
+(define (city-map-generator patches)
+ "City generator from https://github.com/watabou/TownGeneratorOS/blob/master/Source/com/watabou/towngenerator/building/Model.hx"
+ (when (= patches -1) (set! patches 15))
+ (display "lalala")(newline))
+ ;(build))
+
+(dm:register-generator "city-map-generator" city-map-generator)