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