(def vect (castInt getLines))
  (def vectsplit (partition (/ (count vect) 4) vect))
  (def sort1thread (promise))
  (def sort3thread (promise))
  (def sort2thread (promise))
  (doto (Thread. (fn [] ;1
     (deliver sort1thread (nth vectsplit 0))
  )).start)
  (doto (Thread. (fn [] ;2
     (deliver sort2thread (nth vectsplit 1))
  )).start)
  (doto (Thread. (fn [] ;3
     (deliver sort3thread (nth vectsplit 2))
  )).start)
  (def sorted (into (nth vectsplit 3) @sort1thread ))
  (def sorted2 (into sorted @sort2thread))
  (def sorted3 (mergesort (into sorted2 @sort3thread)))
  (println sorted3)
)