#lang transd

MainModule: {
_start: (lambda locals: s "Hello,How,Are,You,Today"
    (textout (join (split s ",") "."))
)
}