(define c_malloc
  (pointer->procedure size_t (dynamic-func "malloc" (dynamic-link)) (list size_t)))
(define (malloc size)
  (make-pointer
   (c_malloc size)
   (dynamic-pointer "free" (dynamic-link))))