(defn item [name quality sell-in] @{:name name :quality quality :sell-in sell-in})

(defn update-quality [items]
    (for i 0 (length items)
        (if (and
                (not (= "Aged Brie" ((get items i) :name)))
                (not (= "Backstage passes to a TAFKAL80ETC concert" ((get items i) :name))))
            (if (< 0 ((get items i) :quality))
                (if (not (= "Sulfuras, Hand of Ragnaros" ((get items i) :name)))
                    (put (get items i) :quality (- ((get items i) :quality) 1))))
            (if (> 50 ((get items i) :quality))
                (do 
                    (put (get items i) :quality (+ ((get items i) :quality) 1))
                    (if (= "Backstage passes to a TAFKAL80ETC concert" ((get items i) :name))
                        (do 
                            (if (> 11 ((get items i) :sell-in))
                                (if (> 50 ((get items i) :quality))
                                    (put (get items i) :quality (+ ((get items i) :quality) 1))))
                            (if (> 6 ((get items i) :sell-in))
                                (if (> 50 ((get items i) :quality))
                                    (put (get items i) :quality (+ ((get items i) :quality) 1)))))))))
        (if (not (= "Sulfuras, Hand of Ragnaros" ((get items i) :name)))
            (put (get items i) :sell-in (- ((get items i) :sell-in) 1)))    
        (if (> 0 ((get items i) :sell-in))
            (if (not (= "Aged Brie" ((get items i) :name)))
                (if (not (= "Backstage passes to a TAFKAL80ETC concert" ((get items i) :name)))
                    (if (< 0 ((get items i) :quality))
                        (if (not (= "Sulfuras, Hand of Ragnaros" ((get items i) :name)))
                            (put (get items i) :quality (- ((get items i) :quality) 1))))
                    (put (get items i) :quality (- ((get items i) :quality) ((get items i) :quality))))
                (if (> 50 ((get items i) :quality))
                    (put (get items i) :quality (+ ((get items i) :quality) 1)))))))

(defn- item-to-str [x] 
    (string (get x :name) ", " (get x :sell-in) ", " (get x :quality)))

(defn run [days items]
    (print "OMGHAI!")
    (for i 0 (+ 1 days) 
        (do
            (print (string "-------- day " i " --------"))
            (print "name, sellIn, quality")
            (for j 0 (length items)
                (print (item-to-str (get items j))))
            (print "")
            (update-quality items))))