main=interact$foldr(%)""
a%(b:c)|elem(a,b)$zip"+-<>""-+><"=c
a%b=a:b