RosettaCodeData/Task/Program-name/Octave/program-name.octave

function main()
	program = program_name();
	printf("Program: %s", program);
endfunction

main();