let apply f v = fun ~var_count -> let func = f ~var_count in let arg = v ~var_count in `Assoc [ "function", func; "argument", arg; ]