       (println answer)
 
       (when (not= answer :not-a-number)
-        (str
-          (format "%s dollars :: %d" answer n)))))
+        (if (= answer "one")
+        (str (format "%s dollar :: %d" answer n)) ;; the singular case
+        (str (format "%s dollars :: %d" answer n)))))) ;; the plural case
 
-(amount 20)
+(amount 1)
 
 
 

(get-n-after-decimal-point 2.10) ;; => 10
(get-n-after-decimal-point 2.01) ;; => 1

(defn digit-parser [x & [power]]
  (let [p (or power 10)]
  (rem x (or power 10))))

(digit-parser 12)

(defn amount [n]


         answer (if (not (number? n)) :not-a-number
                 (if (rational? n)
                   ((fn [r] ;; rational
                      (let
                        [tens-fiter (and (>= r 20) (<= r 99))
                         hundreds-filter (and (>= r 100) (<= r 999))])
                        (cond
                         (<= r 19) (zero-to-nineteen r)
                         (and (zero? (mod n 10)) 'tens-fiter)  (tens (count-tens n))
                         (and (zero? (mod n 100)) 'hundreds-filter) (tens (count-tens n))
                         '(tens-fiter) (super-n-formater r)
                        )) n)
                    ((fn [i] ;; irrational
                       :irrational
