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