Red, 160 154 bytes
func[b][loop 2[t: collect[until[parse keep rejoin
collect[forall b[keep take b/1]][any[thru"+"change
copy p to"+"(replace/all p".""*")]]empty? b/1]]b: t]]
Red,
Galen Ivanov
- 21.2k
- 3
- 24
- 61