let qualify
    (_loc: Ast.Loc.t)
    (a_module_ident: Ast.ident)
    (a_function_expression: Ast.expr): Ast.expr =
  let me = <:expr< $id:a_module_ident$ >> in
    <:expr< $me$ . $a_function_expression$ >>