Prefix compression (secondo tentativo)

main = do
  sa <- getLine
  sb <- getLine
  let output = prefixCompression [] sa sb
  map anteponiLunghezza output
  print output

prefixCompression p sa sb
    | null sa = [p, "", sb]
    | null sb = [p, sa, ""]
    | (head sa == head sb) = prefixCompression (p ++ [head sa] ) (tail sa) (tail sb)
    | otherwise          = [p, sa, sb]

anteponiLunghezza s =
  show (length s) ++ " " ++ s