--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/script4.stx	Wed Jun 14 15:12:40 2017 +0200
@@ -0,0 +1,29 @@
+#!stx --script
+"/
+"/ on any system:
+"/      "stx --script script1.stx
+"/ or:
+"/      "stx --f script.stx"
+"/ or:
+"/      "stx script1.stx"
+"/
+"/ on Unix:
+"/      make this file executable,
+"/      ensure that stx is in your path,
+"/      then type ./script1.stx
+"/
+"/ will just print some numbers
+"/
+
+"/ Stderr showCR:Workspace workspaceVariableNames.
+"/ Stderr showCR:Workspace workspaceVariables.
+
+_$n == 1 ifFalse:[
+    Stderr showCR:('usage: ',_$0,' <n>').
+    Smalltalk exit:1.
+].
+
+1 to:(_$1 asInteger) do:[:i |
+   ('the factorial of %1 is %2'
+	bindWith:i with:i factorial) printCR
+].