let predictor_to_string = function
| `NetMHC -> "netmhc"
| `NetMHCpan -> "netmhcpan"
| `NetMHCIIpan -> "netmhciipan"
| `NetMHCcons -> "netmhccons"
| `Random -> "random"
| `SMM -> "smm"
| `SMM_PMBEC -> "smm-pmbec"
| `NetMHCpan_IEDB -> "netmhcpan-iedb"
| `NetMHCcons_IEDB -> "netmhccons-iedb"
| `SMM_IEDB -> "smm-iedb"
| `SMM_PMBEC_IEDB -> "smm-pmbec-iedb"