Newer
Older
inria-internship / examples / cons.ml
Gabriel Scherer on 7 Mar 2020 185 bytes finish parser support and convert all examples
[@@@warning "-20"]
external observe : 'a -> 'b = "observe"

let mm = function
  | [1;2;3] -> observe 1 2 3
  | [0;0;0] -> observe 0 0 0
  | [2;2;2] -> observe 2 2 2
  | _ -> observe ()