RosettaCodeData/Task/Tokenize-a-string/Icon/tokenize-a-string-2.icon

import util

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