React-tRace

let C x =
let (s, setS) = useState0 x in
if s = 42 then
setS (fun s -> s + 1);
view [s]
;;
let D _ =
let (s, setS) = useState0 true in
useEffect1 (setS (fun _ -> false));
view [C 42, if s then 1 else 0]
;;
view [D (), ()]