anchor.diff:  // Apparently ~~ is faster than Math.floor (see https://coderwall.com/p/9b6ksa/is-faster-than-math-floor)
   let fastIntFloor expr =
       let inner = makeUnOp None Any expr UnaryNotBitwise
  -    makeUnOp None (Number(Int32, NumberInfo.Empty)) inner UnaryNotBitwise
  +    makeUnOp None Int32.Number inner UnaryNotBitwise
   
   let stringToInt (_com: ICompiler) (_ctx: Context) r targetType (args: Expr list): Expr =
       Helper.GlobalCall("int", targetType, args, memb="parse", ?loc=r)
  
positive.code: // * `LanguagePrimitive.PhysicalHash` creates an identity hash no matter whether GetHashCode is implemented or not.
  
  let identityHash com r (arg: Expr) =
      let t = Number(Int32, NumberInfo.Empty)
      getImmutableAttachedMemberWith r t arg "hashCode"
  //    let methodName =
  //        match arg.Type with
  
negative.code:         |]
  
  let getLength e =
      let t = Int32.Number
      getAttachedMemberWith None t e "length"
  
  let getEnumerator (_com: ICompiler) r t expr =
      getAttachedMemberWith r t expr "iterator"
  
  let toStartEndIndices startIndex count =
      let endIndex = makeBinOp None Int32.Number startIndex count BinaryPlus
      [startIndex; endIndex]
  
  let strings (com: ICompiler) (ctx: Context) r t (i: CallInfo) (thisArg: Expr option) (args: Expr list) =
  