compareRow xs ys = zipWith go xs ys
  where go x y = if x == y then "  .  " else show y
compareRow xs ys = zipWith go xs ys
  where go x y = if x == y then "  .  " else show y
compareRow xs ys = zipWith go xs ys
  where go x y = if x == y then "  .  " else show y