(def valtab { 1000 "M" 900 "CM" 500 "D" 400 "CD" 100 "C" 90 "XC" 50 "L" 
              40 "XL" 10 "X" 9 "IX" 5 "V" 4 "IV" 1 "I" })
              
(println valtab)

(def lookup (sort > (map first valtab)))

(println lookup)

(defn stepToInt [n] 
	(let [x (some #(if (<= % n) %) lookup)] 
		(list (valtab x) (- n x))))
	
(println (stepToInt 3500))