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