anchor.diff:      let analogMinute = prepareNegativeMinutes totalMinutes |> toAnalogMinute
       
       {
  -        hour = analogHour  
  -        minute = analogMinute
  +        Hour = analogHour
  +        Minute = analogMinute
       }
   
   let create hours minutes =
  
positive.code: module Clock
  open System
  
  type clock = {
      hour: int
      minute: int
  }
  
  let print clock = sprintf "%02i:%02i" clock.hour clock.minute
  
  let convertToTotalMinutes hours minutes = (hours * 60) + minutes
  
  let normalizeHour (minute:int) = Math.Abs(minute) % 1440
  
  let normalizeMinute (minute:int) = Math.Abs(minute) % 60
  
  let toAnalogHour minute = minute / 60 % 24
  
  
negative.code:     |> convertToAnalogClock
  
  let add minutes clock =
      let previousTotalMinutes = (clock.Hour * 60) + clock.Minute
      previousTotalMinutes + minutes
      |> convertToAnalogClock 
  
  let subtract minutes clock =
      let previousTotalMinutes = (clock.Hour * 60) + clock.Minute
      previousTotalMinutes - minutes
      |> convertToAnalogClock 
  
  