$EUID $DUP $FBREAK
$EUID
* $EUID ( -- val )

calls system's geteuid

EXTENSIONS shell ordinary primitive