anchor.diff:      |> List.map( fun d -> d |> getSonicChord baseChord )
   
   let s = createScale Ionian C
  -let chords = Composer.getChords Composer.Anatole s
  +let chords = Composer.getChords (Progression.getRandom()) s
  
positive.code: open Vaughan.GuitarTab
  open Vaughan.ScaleHarmonizer
  open Vaughan.Scales
  
  module SonicPiConverter =
  
  
negative.code:     noteList 
      |> List.map convertNote
  
  module Progression = 
  
    let ThreeChordsProgression1 = [ScaleDgrees.I; ScaleDgrees.VI; ScaleDgrees.V; ScaleDgrees.V]
  
    let ThreeChordsProgression2 = [ScaleDgrees.I; ScaleDgrees.I; ScaleDgrees.IV; ScaleDgrees.V]
  
    let ThreeChordsProgression3 = [ScaleDgrees.I; ScaleDgrees.VI; ScaleDgrees.I; ScaleDgrees.V]
  
    let ThreeChordsProgression4 = [ScaleDgrees.I; ScaleDgrees.IV; ScaleDgrees.V; ScaleDgrees.IV]
  
    let Anatole = [ScaleDgrees.I; ScaleDgrees.VI; ScaleDgrees.II; ScaleDgrees.V] 
    
    let Circle = [ScaleDgrees.VI; ScaleDgrees.II; ScaleDgrees.V; ScaleDgrees.I ] 
  
    let Pop1 = [ScaleDgrees.I; ScaleDgrees.VI; ScaleDgrees.IV; ScaleDgrees.V ] 
  
    let Pop2 = [ScaleDgrees.I; ScaleDgrees.VI; ScaleDgrees.IV; ScaleDgrees.V ] 
  
    let Otherside = [ScaleDgrees.I; ScaleDgrees.VI; ScaleDgrees.III; ScaleDgrees.VII ]
  
    let Andalusia =  [ScaleDgrees.I; ScaleDgrees.VII;ScaleDgrees.VI;ScaleDgrees.V] 
  
    let getRandom() = 
      let p = [|
        ThreeChordsProgression1
        ThreeChordsProgression2
        ThreeChordsProgression3
        ThreeChordsProgression4
        Anatole
        Circle
        Pop1
        Pop2
        Otherside
        Andalusia
      |]
      let index = System.Random().Next(p.Length) 
      p.[index]
  
  
  module Composer = 
  
    open Progression
    
    let private getSonicChord chord degree = 
      chord
  