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