7 lines
135 B
OCaml
7 lines
135 B
OCaml
external observe : 'a -> 'b = "observe"
|
|
|
|
let mm = function
|
|
| 2 -> observe 2
|
|
| 3 -> observe 3
|
|
| 4 -> observe 4
|
|
| _ -> observe 5
|