func main()
	var s: []char :: cui@input()
	for i(0, ^s - 1)
		if(s[i] <> 'a')
			do s[i] :: ' '
		end if
	end for
	
	var len: int :: 0
	var ss: [][]char :: s.split(" ")
	for i(0, ^ss - 1)
		do len :: lib@max(len, ^ss[i] + 1)
	end for
	do cui@print("\{"a".repeat(len)}\n")
end func