diff --git a/main.go b/main.go
index 45e7aa7..43b0c35 100644
--- a/main.go
+++ b/main.go
@@ -66,9 +66,12 @@ func RunString(script string, args []string) error {
 		executable = value
 	}
 	lisp = lisp.Let(gmnlisp.Variables{
-		gmnlisp.NewSymbol("ARGV"):            gmnlisp.List(posixArgv...),
-		gmnlisp.NewSymbol("PROGRAM-NAME"):    gmnlisp.String(args[0]),
-		gmnlisp.NewSymbol("EXECUTABLE-NAME"): gmnlisp.String(executable),
+		gmnlisp.NewSymbol("ARGV"):              gmnlisp.List(posixArgv...),
+		gmnlisp.NewSymbol("*argv*"):            gmnlisp.List(posixArgv...),
+		gmnlisp.NewSymbol("PROGRAM-NAME"):      gmnlisp.String(args[0]),
+		gmnlisp.NewSymbol("*program-name*"):    gmnlisp.String(args[0]),
+		gmnlisp.NewSymbol("EXECUTABLE-NAME"):   gmnlisp.String(executable),
+		gmnlisp.NewSymbol("*executable-name*"): gmnlisp.String(executable),
 	})
 
 	ctx, cancel := context.WithCancel(context.Background())