anchor.diff:  (**
   Now let's see what we get. The colored areas depict the cell membrane. The line graph represents the amino acids of the protein with their given hydrophobicity.
   *)
  -(*** define-output:shapes ***)
  -Chart.Line ((Array.indexed hydrophobicityArr),Color = Colors.toHex false Colors.Table.Office.blue)
  -|> Chart.withShapes(mouseLocInfo |> Seq.indexed |> Seq.choose createBackgroundShape)
  -|> Chart.withX_AxisStyle("Sequenceindex")
  -|> Chart.withY_AxisStyle("Hydrophobicity")
  -(*** include-it:shapes ***)
  +let shapes = 
  +    Chart.Line ((Array.indexed hydrophobicityArr),Color = Colors.toHex false Colors.Table.Office.blue)
  +    |> Chart.withShapes(mouseLocInfo |> Seq.indexed |> Seq.choose createBackgroundShape)
  +    |> Chart.withX_AxisStyle("Sequenceindex")
  +    |> Chart.withY_AxisStyle("Hydrophobicity")
  +
  +(*** include-value:shapes ***)
   
   (**
   As you can see the hydrophobic areas overlap with the membrane areas.
  
positive.code: 
  *)
  
  let mouse = EbiAPI.UniProteinDB.getProteinSeqFeature "Q64446"
  let rat = EbiAPI.UniProteinDB.getProteinSeqFeature "Q64535"
  let human = EbiAPI.UniProteinDB.getProteinSeqFeature "P35670"
  let sheep = EbiAPI.UniProteinDB.getProteinSeqFeature "Q9XT50"
  
  (**
  What we want to do now is getting an measure of phylogenetic relationship. We will do this by aligning the peptide-sequences with each other. For this we prepare the data and the alignment function.
  
negative.code: #I @"../../bin/BioFSharp.Parallel/net47/"
  #I @"../../bin/BioFSharp.Stats/net47/"
  #I @"../../bin/BioFSharp.Vis/net47/"
  #I @"../../packages/formatting/"
  #r @"FSharp.Plotly/lib/net47/FSharp.Plotly.dll"
  #r @"Newtonsoft.JSON/lib/netstandard2.0/Newtonsoft.JSON.dll"
  #r "BioFSharp.dll"
  #r "FSharpAux.dll"
  #r "BioFSharp.IO.dll"
  #r "BioFSharp.BioDB.dll"
  //#r "SwaggerProvider.Runtime.dll"
  
  open BioFSharp.BioDB
  open FSharp.Plotly
  