Red, 141 112 bytes
func[n][until[s: copy""loop n[append s 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