a=[k=p=i=0]
j=20
for(("$System.in"-'\n').each{v->a[j]=(a[j+=v<p?1:v>p?-1:0]?:'').padRight(i++)+(p=v)};k++<i;)a[k]&&println(a[k])