show vari Str_arg
inquire char vari Str_arg text "NEW SEQUENCE NAME::"
rename  sequence  Str_arg select by residue atom numb $1 end
return