> print(bm_replace(bm_list(bm), 2L))
[[1]]
▒▒▒▒
▒██▒
▒██▒
▒▒▒▒

attr(,"class")
[1] "bm_list" "list"   

> print(bm_replace(pm, "red"))
[31m█[39m[31m█[39m[31m█[39m[31m█[39m
[31m█[39m[30m█[39m[30m█[39m[31m█[39m
[31m█[39m[30m█[39m[30m█[39m[31m█[39m
[31m█[39m[31m█[39m[31m█[39m[31m█[39m

> rr <- bm_replace(r, "blue")
> bm_print(rr)
[34m█[39m[34m█[39m[34m█[39m[34m█[39m
[34m█[39m[30m█[39m[30m█[39m[34m█[39m
[34m█[39m[30m█[39m[30m█[39m[34m█[39m
[34m█[39m[34m█[39m[34m█[39m[34m█[39m

> nrr <- bm_replace(nr, "green")
> bm_print(nrr)
[32m█[39m[32m█[39m[32m█[39m[32m█[39m
[32m█[39m[30m█[39m[30m█[39m[32m█[39m
[32m█[39m[30m█[39m[30m█[39m[32m█[39m
[32m█[39m[32m█[39m[32m█[39m[32m█[39m

> mir <- bm_replace(mi, "orange")
> bm_print(mir)
[33m█[39m[33m█[39m[33m█[39m[33m█[39m
[33m█[39m[30m█[39m[30m█[39m[33m█[39m
[33m█[39m[30m█[39m[30m█[39m[33m█[39m
[33m█[39m[33m█[39m[33m█[39m[33m█[39m

