[ [] [] rot
    witheach
    [ dup char , = iff
        [ drop nested join [] ]
      else join ]
    nested join ]                is tokenise ( $ --> [ )

  [ witheach [ echo$ say "." ] ] is display  ( [ -->   )

  $ "Hello,How,Are,You,Today" tokenise display