(print (mapv 
  #(let[a(range 1(+ 1 %))](apply str(interleave a(reverse a))))
  [1 4 26 100]))