let hlarp input =     fwd (Input.hlarp (match input with       | `Seq2hla f -> `Seq2hla (bwd f)       | `Optitype f -> `Optitype (bwd f)))