main=interact$foldr(#)[]
v#(h:t)=[v..h]++[v,pred v..h]++t
v#_=[v]