(= s(fn(m)(map["ABC"(pos _ m)]l))l)(n-of(read)(= l(+(s"ACB")'(#\A)(s"BAC"))))(pr:+""l"
"(rev:s"CBA"))