(display
  (list->string
    (string->list
      "Hello,How,Are,You,Today"
      ",")
    "."))