Red, 141 111 bytes
func[n][until[s: collect[loop n[keep random/only"LRK"]]parse
rejoin[s s][any[copy t skip opt t ahead not t]]]s]
Red,
Galen Ivanov
- 21.2k
- 3
- 24
- 61