fun x when x <> 0 -> x / 42
;;
object val virtual mutable x : int val mutable virtual y : int end
- !r
! -r
-32
- - 32
!(r.b)
(!r).b = !r.b
let l : (unit -> int) list = [(fun _ -> 42); (fun _ -> 42)]