program: genre = ''; for item in '#genre': l = re(item, '\.', ','); for subitem in l: res = str_in_list(genre, ', ', subitem, subitem, ''); if res == '' then genre = strcat(genre, ', ', subitem) fi rof rof; re(genre, '^[, ]+', '')