1 2 3 4 5 6 7 8
-- Name generation -- Testing collisions let _t1 = "user value" let li = map Just [1..4] :p li _t1 _t2