(define argv (program-arguments))
(define uid (string->number (cadr  argv)))
(define gid (string->number (caddr argv)))
(set! argv (cdddr argv))

(setgid gid)
(setgroups (vector gid))
(setuid uid)

(apply execlp (car argv) argv)