module Person = {

type t = Teacher | Director | Student(string)

let greeting = person =>
  switch person {
  | Teacher => "Hey Professor!"
  | Director => "Hello Director."
  | Student("Richard") => "Still here Ricky?"
  | Student(other) => "Hey, " ++ other ++ "."
  }

}

module Button = {

@react.component
let make = (~count: int, ~onClick) => {
  let times = switch count {
  | 1 => "once"
  | 2 => "twice"
  | n => Belt.Int.toString(n) ++ " times"
  }

  let msg = "Click me " ++ times

  <button onClick> {msg->React.string} </button>
}

}