data Name = NameConstr String
data Color = ColorConstr String

showInfos :: Name -> Color -> String
showInfos (NameConstr name) (ColorConstr color) =
  "Name: " ++ name ++ ", Color: " ++ color

name = NameConstr "Robin"
color = ColorConstr "Blue"

main = putStrLn $ showInfos name color
