window 1, @"Tokenize a string"

void local fn DoIt
  CFStringRef string = @"Hello,How,Are,You,Today"
  CFArrayRef tokens = fn StringComponentsSeparatedByString( string, @"," )
  print fn ArrayComponentsJoinedByString( tokens, @"." )
end fn

fn DoIt

HandleEvents