print peek$("program_name")

s$ = system$("cd")
n = len(s$)
print left$(s$, n - 2), "\\", peek$("program_name")