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