RosettaCodeData/Task/Program-name/Smalltalk/program-name-1.st

"exec" "gst" "-f" "$0" "$0" "$@"
"exit"

| program |

program := Smalltalk getArgv: 1.

Transcript show: 'Program: ', program; cr.