anchor.diff:  
       override __.RenderInput (_, _, value) =
           value :?> JArray
  -        |> normalizeJArray
           |> Seq.map formatValue
           |> formatMultiLineList
   
  
positive.code: 
      override __.RenderInput (_, _, value) =
          value :?> JArray
          |> normalizeJArray
          |> Seq.map formatValue
          |> formatMultiLineList
  
  
negative.code: type Allergies() =
      inherit GeneratorExercise()
  
      let toAllergen (jToken: JToken) = string jToken |> String.dehumanize |> sprintf "Allergen.%s"
  
      let renderAllergicToAssert canonicalDataCase (jToken: JToken) =
          let substance = toAllergen jToken.["substance"]
          let score = canonicalDataCase.Input.["score"] :?> int64
          let sut = sprintf "allergicTo %d %s" score substance
          let expected = jToken.Value<bool>("result") |> formatBool
  