main=interact$s.(iterate(map s.foldl(&)[[]])[]!!).read
x&y=x++map(++[y])x
s[]="0"
s(x:y)='{':x++((", "++)=<<y)++"}"