data Id = Number Int | Name [Char]

greet (Number x) = "Hello Num " ++ (show x)
greet (Name y) = "Hello Name " ++ y