TickTockClockF#Expert

// Dr. Syme meets Dr. Seuss :slightly_smiling_face:
// Expert FSharp 4.0 p. 165     read aloud:          
module public GlobalClock =
   type TickTock = Tick | Tock
   let mutable private clock = Tick
   let private tick = new Event<TickTock>()
   let internal oneTick() =
       (clock <- match clock with 
                   Tick -> Tock 
                 | Tock -> Tick)
       tick.Trigger (clock)
   let tickEvent = tick.Publish
   // GlobalClock having type TickTock
// Code is beautiful, funny, and useful