main=interact f
f[a]='{':a:"}"
f x|(a,b)<-splitAt(div(length x+1)2)x='{':f a++f b++"}"