1Input input.ml /^module ModuleFoo = struct$/;" module 2ModuleFoo input.ml /^module ModuleFoo = struct$/;" module 3foobar input.ml /^ type foobar =$/;" type module:ModuleFoo 4ConstructorFoo input.ml /^ ConstructorFoo$/;" Constructor type:ModuleFoo/foobar 5ConstructorBar input.ml /^ | ConstructorBar of int * char list$/;" Constructor type:ModuleFoo/foobar 6foorecord input.ml /^type 'a foorecord =$/;" type 7foofield input.ml /^ { foofield : 'a;$/;" RecordField type:foorecord 8barfield input.ml /^ barfield : int;$/;" RecordField type:foorecord 9foobarfield input.ml /^ mutable foobarfield : list char -> int -> unit }$/;" RecordField type:foorecord 10+- input.ml /^let (+-) a b =$/;" function 11shall_appear input.ml /^let shall_appear () =$/;" function 12foo_function input.ml /^let foo_function a b = (a, b)$/;" function 13fooClass input.ml /^class fooClass =$/;" class 14x input.ml /^ val x = ()$/;" val class:fooClass 15fooMethod input.ml /^ method fooMethod = x$/;" method class:fooClass 16ConnectionNotReachable input.ml /^exception ConnectionNotReachable$/;" Exception 17