func main()
	var s: []char :: cui@input()
	for i(0, ^s - 1)
		do cui@print("\{(i <> 0 & (^s - i) % 3 = 0) ?(",", "")}\{s[i]}")
	end for
	do cui@print("\n")
end func