#!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
].