(define-c-library libc '("stdlib.h") #f '())
(define-c-procedure c-system libc 'system 'int '(pointer))

(define (system command)
  (let* ((command-cbv (string->c-bytevector command))
         (result (c-system command-cbv)))
    (c-bytevector-free command-cbv)
    result))