procedure main()
   a := list(1)		# different sizes to make identification easy
   b := list(2)
   c := list(3)
   d := list(4)
   e := &lcase ++ &ucase
   f := &lcase ++ &ucase
   g := '0123456789'
   h := &digits
   A := sort([h,g,a,c,b,d,f,e,&lcase,[],&cset,&ascii])
   every write(image(!A))
end