main=interact$last.(iterate(map(++"}").foldl(#)["{0"])[]!!).read
x#a=x++('{':a):map(++", "++a)x