anchor.diff:  let purple = (63, 13, 94)
   let pink = (100, 75, 80)
   let colors = 
  -    [red; green; blue; (*white;*) (*black;*) brown; orange; yellow; teal; purple; pink]
  +    [red; green; blue; brown; orange; yellow; teal; purple; pink]
   
   let scale var mA sC  = (Trik.Helpers.limit (-mA) mA var) / sC
   
  
positive.code: 
  
  let colorProcessor (r, g, b) = 
      printfn "rgb : %d %d %d" (r * 255 / 100) (g * 255 / 100) (b * 255 / 100)
      let del (x, y, z) = (x - r) * (x - r) + (g - y) * (g - y) + (b - z) * (b - z)
      let rec loop (x :: xs) acc =
          let sup = del x
  
negative.code: let red = (100, 0, 0)
  let green = (0, 100, 0)
  let blue = (0, 0, 100)
  let brown = (65, 17, 17)
  let orange = (100, 65, 0)
  let yellow = (100, 100, 0)
  