while~0:
 *a,=map(set,input().split())
 for(_)in a:
  for(s)in a:_-={'-'};s|=s&_ and _
 S=sorted;x,*_,y=S(a,key=len);print(*S(x)+[' ']+S(y),sep="")