I\'m trying to use pattern matching to write a calculator application.
Two major types defined as below:
type key = Plus | Minus | Multi | Div | Equa
A record pattern looks like a record:
match s with | { lcd = a; vpr = d; _ } -> (* Expression *)