Vowel Align in one line of Haskell

main.hs

import Control.Applicative (liftA2)
import Data.List (maximumBy)
import Data.Ord (comparing)

vowAlign = let as = (map concat) . sequenceA . map ((\c -> [c, c ++ "#", "#" ++ c]) . pure) in (maximumBy ((comparing (\(_,_,x) -> x)) <> flip (comparing $ length . (\(_,x,_) -> x)) <> flip (comparing $ length . (\(x,_,_) -> x))).) . (map (\(s, s') -> (s, s', ((.) (foldr (\(c, c') acc -> if all ((flip elem) "AEIOU") $ [c] ++ [c'] then (acc + 1) else acc) 0) . zip) s s')).) . (.as) . liftA2 (,) . as

-- Acceptance tests
main :: IO ()
main = 
    let x = "LAUFEN"
        y = "ETUI"
        x' = "FSSU"
        y' = "BALL" in do
            putStrLn $ show $ vowAlign x y
            putStrLn $ show $ vowAlign x' y'

*Main> main
("LA#UFEN","#ETU#I",3)
("FSSU","#B#ALL",1)