(println (map 
  #(flatten(reduce(fn[a b](if(odd? b)(conj(pop a)(conj[b](last a)))(conj a b[])))[[]]%))
  [ [0 1] [1 3] [1 2 3] [1 3 2] [10 7 9 6 8 9] [23 12 32 23 25 27] [123 123 345 0 1 9]]
))