anchor.diff:          EApp (EQualified ([ "FStar"; "Int"; "Cast" ], c), [ translate_expr env arg ])
   
     | MLE_App ({expr=MLE_TApp ({expr=MLE_Name p}, _)}, [_; _; e])
  -    when string_of_mlpath p = "Steel.Effect.Atomic.return" ->
  +    when string_of_mlpath p = "Steel.Effect.Atomic.return" ||
  +         string_of_mlpath p = "Steel.ST.Util.return" ->
       translate_expr env e
   
     | MLE_App (head, args) ->
  
positive.code:       EBufCreate (ManuallyManaged, translate_expr env init, EConstant (UInt32, "1"))
  
    | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) } , [ init ])
      when (string_of_mlpath p = "Steel.Reference.malloc") ->
        EBufCreate (ManuallyManaged, translate_expr env init, EConstant (UInt32, "1"))
  
    | MLE_App ({ expr = MLE_TApp({ expr = MLE_Name p }, _) }, [ _e0; e1; e2 ])
  
negative.code:     Syntax.string_of_mlpath p = "FStar.HyperStack.ST.mmstackref" ||
      Syntax.string_of_mlpath p = "FStar.HyperStack.ST.mmref" ||
      Syntax.string_of_mlpath p = "Steel.Reference.ref" ||
      Syntax.string_of_mlpath p = "Steel.Array.array" ||
      Syntax.string_of_mlpath p = "Steel.ST.Reference.ref" ||
      Syntax.string_of_mlpath p = "Steel.ST.Array.array"
      ->
        TBuf (translate_type env arg)
  
  