procedure main()
    t := table()
    every t[a := !"ABCDE"] := map(a)

    every pair := !sort(t) do
        write("\t",pair[1]," -> ",pair[2])

    writes("Keys:")
    every writes(" ",key(t))
    write()

    writes("Values:")
    every writes(" ",!t)
    write()
end