         ;(def posts (HGQuery$hg/getAll @database (HGQuery$hg/type Post)))
         ;(println (count (filter (fn [post] (if (re-find #"Frodo" (. post getContent)) true false)) posts)))
         (println (string/join " " ["Operation took" (String/valueOf (/ (- (System/currentTimeMillis) operationStart) 1000.0)) "seconds"]))
-        )
-      )
-    (println)
+        (println)
+        )
+      )
 
     (let [operationStart (System/currentTimeMillis)]
       (do

    (let [operationStart (System/currentTimeMillis)]
      (do
        (println "liczba tematów utworzonych w 2013 roku")
        (def threadFirstPostLinks (HGQuery$hg/findAll @database (HGQuery$hg/type threadFirstPostRelType)))
        (println (count threadFirstPostLinks))
        (def threadFirstPosts (map (fn [threadFirstPostLink] (HGQuery$hg/getOne @database (HGQuery$hg/and (into-array HGQueryCondition [(HGQuery$hg/type Post) (HGQuery$hg/target threadFirstPostLink)])))) threadFirstPostLinks))
        (println (count threadFirstPosts))
        (println (. (filter (fn [threadFirstPost] (t/within? (t/interval (t/date-time 2013) (t/date-time 2014)) (. threadFirstPost getCreateTime))) threadFirstPosts) size))

        (println (string/join " " ["Operation took" (String/valueOf (/ (- (System/currentTimeMillis) operationStart) 1000.0)) "seconds"]))
        )

    (let [operationStart (System/currentTimeMillis)]
      (do
        (println "najbardziej popularny temat w maju 2013")
        (def dateBegin (. (t/date-time 2013 5) getMillis))
        (def dateEnd (. (t/date-time 2013 6) getMillis))
        (def threadHandles (HGQuery$hg/findAll @database (HGQuery$hg/type ForumThread)))
        (def threadPostsCounts (map (fn [threadHandle] (count (filter (fn [date] (and (>= date dateBegin) (< date dateEnd))) (map (fn [threadPostLink] (. threadPostLink getValue)) (HGQuery$hg/getAll @database (HGQuery$hg/and (into-array HGQueryCondition [(HGQuery$hg/type Long) (HGQuery$hg/incident threadHandle)]))))))) threadHandles))
        (def mostPopularThread (reduce (fn [x y] (if (> (last x) (last y)) x y)) (map vector threadHandles threadPostsCounts)))
        (println (. (. @database get (first mostPopularThread)) getTitle) (last mostPopularThread))
        (println (string/join " " ["Operation took" (String/valueOf (/ (- (System/currentTimeMillis) operationStart) 1000.0)) "seconds"]))
        )
      )
