extension_nodes.ml

let f [%pattern]: [%type_expression] = [%expression]
module type s = [%module_type]
module M = struct
  [%%structure_item]
  include [%module_expression]
end
module type S = sig [%%signature_item] end
class c: int -> [%class_type] = fun x -> [%class_expression]
class c: object [%%class_type_field] end = object [%%class_field] end