a:[];b:"";while -1#(x:?read(?-,?-,-1))do a:cons(x,a);lsum(if evenp(v)then dispterms(v)else b:sconcat(b,v,"
"),v,sort(a));printf(?t,"
~a",b);