x:[];while 0#(v:?read\-line(?-,?-,0))do x:cons([slength(v),v],x);for v in sort(x)do dispterms(v[2]);