show vari Str_arg
inquire char vari Str_arg text "NEW RESIDUE NAME::"
rename residue  Str_arg select by resid atom number $1 end
return