mlms13

-- data NamedColor = Red | Green | Blue
-- data CustomColor = CustomColor
--  { r :: Int
--  , g :: Int
--  , b :: Int
--  }
-- data Color = NamedColor | CustomColor

create type custom_color as (r int, g int, b int);