(format t"~(~{~A ~}~)"(sort(union(#1=set-difference(setf a #2=(read-from-string(format()"(~A)"(read-line)))b #2#)a)(#1#a b))'string<))