dsc swap isnum char 0 str read_str [ ]