func main()
	var N: []char :: cui@input()
	for i(0, ^N - 2)
		do cui@print([N[i]])
		if((^N - i) % 3 = 1)
			do cui@print(",")
		end if
	end for
	do cui@print("\{N[^N - 1]}\n")
end func