procedure main()
   A := []
   "Hello,How,Are,You,Today" ? {
      while put(A, 1(tab(upto(',')),=","))
      put(A,tab(0))
      }
   every writes(!A,".")
   write()
end