# Pastebin Nuvr3msy
(defn parse-int [s]
   (Integer. (re-find  #"\d+" s )))

(defn parse-float [s]
   (float (re-find  #"\d+(\.\d+)?" s )))