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