procedure main()
write(&progname)    # obtain and write out the program name from the keyword &progname
end