(let [m {a {b 1}} c (collections/copy .m)] (put .c ["a" "b"] 2) [.m .c])
(let [m {a {b 1}} c (collections/copy .m shallow)] (put .c ["a" "b"] 2) (put .c "x" 3) [.m .c])
(let [l [1 [2]] c (collections/copy .l)] (lists/append .c 3) (lists/append (get .c 1) 4) [.l .c])
(let [s {n 1} m {a .s b .s} c (collections/copy .m)] (put .c ["a" "n"] 2) [(get .c ["b" "n"]) (get .m ["a" "n"])])
[(collections/copy 5) (collections/copy "x") (collections/copy null)]
(collections/copy {a 1} deep)
(collections/copy {a 1} 5)
(let [m {a 1}] (put .m "self" .m) (let [c (collections/copy .m)] [(comparison/identical? (get .c "self") .c) (comparison/identical? (get .c "self") .m)]))