# [Haskell], <s>192</s> <s>181</s> <s>174</s> <s>161</s> <s>158</s> 148 bytes

<!-- language-all: lang-hs -->

 e@(a:r)&f@(b:s)=snd$maximum[([1|' '<-s!!2],s)|s<-[r!f$a:" R",e!s$' ':b:"A",r!s$a:b:last("M":[" "|a==b])]]
 x&y=[x,y,x++y>>"R"]
 (x!y)s=zipWith(:)s$x&y

[Try it online!](https://tio.run/##jZBRa4MwEMff8ynOIK1SHWvZU6ilaisMVjbcwwbiQ2ztKlNbjIJu3Wd3Z63Q0pYtR/RCfve/@2fDxWcYx3UdThXOMrW3nioBE6oh0pWc8DJKisRTvOG@D/2xLiRp5GtC3Yux7mXSWuaMgku1UBIyAixg1KRahieOecxFrtAFZR4FuueGEfiq75OyVxleqVVaORhUkwl1qU@UUqpUYXxFu7co3yhMFTJidcKjFAxYbYHArshf8@wphTso0jhKQwEyUNOyZ3OHQg9Tx5rbM0p0/RbLMSwrsKyljXEo4sESJdov/UeT9yZ3bpI8sNtZGjXyrZPHlF0d8rnIUQGUB1huePoRCpUREyxoQNJCgKZNDHBduFjkqPynpZetEFEQh7A9dhzen7Y8ryfQFUPzA@LCYgG4F4fEJRd@uvfo/IxOxKHlyIEBB9AgLreb/eytrtUjQPCSYGei/9S/ "Haskell – Try It Online") Example usage: `"ABCDEF" & "AFBECD"`. Returns a list of three strings. This is an extension of my recursive solution to the ordinary [Levenshtein distance question](https://codegolf.stackexchange.com/a/142370/56433).

[Haskell]: https://www.haskell.org/