[Haskell-cafe] Implementing parental using blood type