(** This prints the string plop when loading the module *)
let foo = print_string "plop"; (+)

(** This behaves as expected *)
let foo' a b = print_string "plop"; a + b