import util

procedure main()
   A := stringToList("Hello,How,Are,You,Today", ',')
   every writes(!A,".")
   write()
end