r=proc{|a,s,m|b=[];a.map{|x|s<<z=[x,*m];r[b,s,z];b<<x};s}
s=[];gets.hex.times{s=r[s,[0],[]]}
$><<s.inspect.tr('[]','{}')