pro pwd
;
print,curdir()
return
end