5 lines
119 B
OCaml
5 lines
119 B
OCaml
external observe : 'a -> 'b = "observe"
|
|
external guard : 'a -> 'b = "guard"
|
|
|
|
let f1 = function
|
|
| true -> observe 1
|