method paste = Some (fun () -> Cam_commands.eval_command (factory_name^"_paste"))