;(pp "1:");
;(pp "este deve dar erro:")
;(def a1 (bless2 mmmm (list 3 4)))

(pp "2:");
(pp "este devia dar (3 4):")
(def a1 (bless2 makeseq (list 3 4)))
(def b1 (bless makeseq (list 3 4)))
(pp a1)
(pp b1)

(pp "3:");
(pp "este devia dar 7:")
(def a2 (bless2 add (list 3 4)))
(def b2 (bless add (list 3 4)))
(pp a2)
(pp b2)

(pp "4:");
(pp "este devia dar {3 a 5}:")
(def a3 (bless2 makeset (list 3 'a 4)))
(def b3 (bless makeset (list 3 'a 4)))
(pp a3)
(pp b3)

(pp "5:");
(pp "este devia dar {3 a <add 4 4>  5}:")
(def a3 (bless2 makeset (list 3 'a (list 'add 4 4) 5)))
(def b3 (bless makeset (list 3 'a (list 'add 4 4) 5 )))
(pp a3)
(pp b3)