while gets
  group=[]
  $_.gsub(/[\d,]+/){|tok|group<<tok}
  gcount=group.shift.to_i
 
  hline={0=>[[0,0]]}
  vline={}
  while group.size>0
    up=hline.keys.min
    endp=-1
    hline.delete(up).sort_by{|e|e[0]}.each do |t|
      left,width=t
      if left==endp
        endp=left+width
      else
        endp=left+width
        group.shift.split(?,).each do |s|
          s=s.to_i
          (hline[up+s]||=[])<<[left,s]
          (vline[left]||=[])<<[up+s,s]
          left+=s
        end
      end
    end
  end
  ans=[]
  vline.keys.sort.each do |left|
    endp=-1
    vline[left].sort_by{|e|-e[0]}.each do |t|
      down,s=t
      if down!=endp
        break if gcount==0
        gcount-=1
      end
      ans<<s if gcount==0
      endp=down-s
    end
    break if gcount==0
  end
  puts "(#{ans*?,})"
end