#SRC: JCON

record rec(a)

procedure main(args)
   local L, s, x, r, c

   r := rec(45)
   c := create 1 | 2
   L := [&null, 0, 1, 2, 0.0, 1.0, 2.0, "", "0", "1", "2", '', '0', '1', '2',
      rec, main, foo, rec, rec(), r, c, []]
   put(L, L)

   every x := !L do {
      s := case x of {
        1:        "1"
	'1':      "'1'"
        1.0:      "1.0"
        "1":      "\"1\""
        &null:    "null"
        main:     "main"
        rec:	  "rec"
	rec():    "rec()"	# shouldn't ever match
	r:        "r"
	c:        "c"
	L:        "L"
        default:  "default"
        }
      write(right(s, 10), " : " , image(x))
      }
end

procedure foo()
end
