(define (dynamic-import module symbol default)
  (handle-exceptions _ default (eval `(let () (use ,module) ,symbol))))
;;assuming openssl egg is installed
(print (dynamic-import 'openssl 'ssl-connect #f))