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