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