a=[]
p=i=0
j=20
("$System.in"-'\n').each{a[j+=p<=>it]=(a[j]?:'').padRight(i++)+(p=it)}
(a-null).any''.&println