returns the first 2 digits of the present R script filename

script_step_number()