d:dispterms;r:?read\-line;thru 14 do(d(supcase(r())),d(sdowncase(r())));