type goob = Goob of (int ref) * int
let _ =
let a = Goob (ref 1, 2) in
if (match a with
| Goob ({contents = 1}, _) -> true
| _ -> false) then
print_endline "hi asl"