let save ~name thing =     fun ~var_count ->       function_call name (["save-as", string name; "element", thing ~var_count])