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