(import (chicken file))
(import (chicken format))
(import (chicken process))
(import (chicken process-context))

(delete-file* "xxx.dat")
(delete-file* "xxx.key")

(define csi (or (get-environment-variable "CHICKEN_CSI") "csi"))
(define here (current-directory))
(system* (sprintf "env MDH_DATABASE_PREFIX=~s/xxx ~s -s a.scm" here csi))
(system* (sprintf "env MDH_DATABASE_PREFIX=~s/xxx ~s -s b.scm" here csi))