7 lines
142 B
OCaml
7 lines
142 B
OCaml
|
external observe : 'a -> 'b = "observe"
|
||
|
|
external guard : 'a -> 'b = "guard"
|
||
|
|
|
||
|
|
let f1 = function
|
||
|
|
| true -> observe 1
|
||
|
|
| false -> observe 0
|