let hlarp input =     let name, v = match input with     | `Seq2hla f -> "hlarp-seq2hla", f     | `Optitype f -> "hlarp-optitype", f     in     one_to_one name "hlarp" v