anchor.diff:                Double = fun left right optOrigin -> Bool ((left >= right), optOrigin)
                 Vector2 = fun left right optOrigin -> Bool ((left.LengthSquared >= right.LengthSquared), optOrigin)
                 String = fun left right optOrigin -> Bool ((left >= right), optOrigin)
  -              List = fun _ _ optOrigin -> Violation.make ("invalidArgumentType/binary/comparison/gt_eq", "Cannot compare lists.", optOrigin) }
  +              List = fun _ _ optOrigin -> Violation (["invalidArgumentType"; "binary"; "comparison"; "gt_eq"], "Cannot compare lists.", optOrigin) }
       
           let Add =
               { Bool = fun left right optOrigin -> Bool ((if left && right then false elif left then true elif right then true else false), optOrigin)
  
positive.code: 
  [<RequireQualifiedAccess; CompilationRepresentation (CompilationRepresentationFlags.ModuleSuffix)>]
  module Scripting =
  
      [<RequireQualifiedAccess>]
      module Violation =
          
          let make (categoriesStr : string, msg, optOrigin) =
              let categories = categoriesStr.Split [|'/'|] |> List.ofArray
              Violation (categories, msg, optOrigin)
  
      [<RequireQualifiedAccess>]
      module Unary =
  
negative.code:               Int64 = fun value optOrigin -> Bool ((value = 0L), optOrigin)
                Single = fun value optOrigin -> Bool ((value = 0.0f), optOrigin)
                Double = fun value optOrigin -> Bool ((value = 0.0), optOrigin)
                Vector2 = fun _ optOrigin -> Violation (["invalidArgumentType"; "unary"; "conversion"; "bool"], "Cannot convert a vector to a bool.", optOrigin)
                String = fun value optOrigin -> Bool (scvalue value, optOrigin)
                List = fun _ optOrigin -> Violation (["invalidArgumentType"; "unary"; "conversion"; "bool"], "Cannot convert a list to a bool.", optOrigin) }
      
          let Int =
              { Bool = fun value optOrigin -> Int ((if value then 1 else 0), optOrigin)
  