(bind-func tteither (lambda () (let ((res (testeither #f))) (Right$ res (x) (println x) (println "wrong")) void)))