(foreign-declare "#include \"implementations/DES/crypt_des.c\"")

(define (crypt-des password setting)
  (let ((output (make-string 13)))
    (if ((foreign-lambda c-pointer "des_crypt" c-string c-string scheme-pointer int)
         password setting output 13)
        output
        ;; TODO: implement proper error handling
        (error "Error running DES crypt"))))