-- Name generation
-- Testing collisions

let _t1 = "user value"
let li = map Just [1::Integer .. 4]
:p li
_t1
_t2