main=interact f
f(a:b:c:d)=[c|c<b,c<a]++[b|a<=c,b>c]++f(b:c:d);f x=""