let save ~name thing =     fwd (Input.save ~name (bwd thing))