| program |

program := Smalltalk commandLine first.
Transcript show: 'Program: ', program; cr.