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