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