testlist <- list(str = c(NA, "lgqvildwemktswsqyeci", "lmuwakizfbtxqhcgayfy", NA, "fkcfypqnuwontgsukkdo", "tzomtfzmnlgqgxchbfbm", "rrnxrnl", "qulnyhnlo", "nmswhsqstrwoklzpysff", "hfmaxhevfauhgadd", "cmspnljparnebhfktb", NA, "ouplkgpdxgykpygbvyrm", NA, NA, "rqhzcprhuvrbtcepzila", "gkpqwdjfoptinaaokepu", "zphuhxujlcwxaxswxnjf", "y", "ssnbudwvxyyqrqpghcaj", "", NA, "pmeevfbdsocemedcowuk", "qmcwowug", "iqhfjapipnlexqothpni", "ookjzbbncmgsidvosule", "hzebrbijfvsbuprjrszb", NA, NA, "afirqmsyajwoedmdbvld", NA, NA, "rudodqqeebwcydjybpgs", NA, "fkanzymyvccs", "dtkwhkahgvxujvfuyxfp", "gsiotxykmbxhtohqwtlq", NA, NA, NA, "yijfmpqzos", NA, "mcmifcpb", "amaaehchiayqijxuuzij", NA, "cbakrpnanmgayvwttifu", NA, "hvqeyoahad", NA, "", "wrgtpulucgnozpwilmhz", NA, "sbnxgwgx", NA, NA, NA, "twxubqcncwlz", NA, "oahrcsc", "sptpnpughtkwttgdvacd", NA, "bqeqqhbnvmplymfrzixn", "s", NA, NA, NA, NA, "iwvkwpxeesrrvpoefu", "jghojkiwcgjhuisdpjxu", NA, "iqmhcbpyauoiceehysrk", "nhhdpbdjbhcvwapxnhcq", "ifpxvzanbn", "pwafqjguulvny", "wcyrwuktk", "zrgtbgulw", "gecyjczplxbregfwgwsg", "pnxkrkfolqobvsehlvgp", "uzosdzmpbrovzzujmwb", NA, NA, "vdwwsmhpwmefxeo", "mfeyhkvkl", NA, "ikemllkrxwxkjpudtfjb", NA, NA)) result <- do.call(jmotif::str_to_repair_grammar,testlist) str(result)