li=gets
ans=[]

def Or a
 ans=[]
 ans<<a.split("|")
 ans
end

def hate a
 ans=[""]
 if a.class==String
  ans <<a
 else
  a.each{|i|
   ans<<i
  }
 end
 ans
end

def chars a
 dat=[]
 a.each_byte{|i|
  dat<<i.chr
 }
 dat
end

last=""
len =li.length
i =0
c=""
hatef=0
while i<len
 c=li[i,1]
 if c=='?'
  hatef=1
  ans << hate(last) 
 else
  hatef=0
  ans << last if last !='?' && i>0
  if c=='('
   /\(([^)]+)\)/ =~ li[i..-1]
   last= Or($1)
   i += $1.length+2
   next
  end
  if c=='['
   /\[([^\]]+)\]/ =~ li[i..-1]
   last = chars $1
   i += last.length+2
   next
  end
 end
 last =c
 i+=1
end
ans <<last if hatef==0

def put an,a,l,n
 if l==n
  puts an
 else
  if a[n].class==String
   an<<a[n] 
   put an,a,l,n+1
  else
   a[n].each{|i|
    if i.class==String
     put an+i,a,l,n+1 
    elsif i.class==Array
     i.each{|j|put an+j,a,l,n+1}
    end
   }
  end
 end
end

put("",ans,ans.length,0)