#!/usr/bin/env newlisp
;;; Usage
;; $ newlisp printid.lsp
;; Real UID = 500
;; Effective UID = 0
;; Real GUID = 500
;; Effective GUID = 500
;; uid=500(lxuser) gid=500(lxuser) groups=500(lxuser)
(define libc "libc.so.6")
(import libc "getuid")
(import libc "geteuid")
(import libc "getgid")
(import libc "getegid")
(import libc "printf")
(printf "Real UID = %d\n" (getuid))
(printf "Effective UID = %d\n" (geteuid))
(printf "Real GUID = %d\n" (getgid))
(printf "Effective GUID = %d\n" (getegid))
(! "id -a")
(exit)