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