set d [dict create blue [list 1 2] ocean water]
puts [tcl2json $d]