Reason BST Blog Post pattern matching

ReasonBSTPM.re

type pets =
| Dog(string)
| Cat(string)
| Hamster(string);

let myPet = Dog("Buddy");

switch (myPet) {
| Dog(name) => "I have a Dog " ++ name ++ "!" 
| Cat(name) => "I have a Cat " ++ name ++ "!" 
| Hamster(name) => "I have a Hamster " ++ name ++ "!"; 
};