let () = print_endline "a: init" let called () = print_endline "a: called"