DB<2> $a = [A..Z]

  DB<3> @a = (a..z)

  DB<4> x $a[0], $a->[0]
0  'a'
1  'A'