(*ChoosearegisteredWolframModelandanumberoftimesteps,ormutliplemodelsand/ortimesteps*)(*Anotherversioncouldacceptanysuitableruleset,registeredornot*)(*Giveitalittletime,firsttimeneedssomeresourcefunctionloading.Afterfirstloading,ittakes<4secondsona2016macbookfor3timesteps,<10secondsfor4timestepsandabout45secondsfor5timesteps*)wolframToPAOHCompare[ResourceFunction["WolframModelData"][][[1]],#]&/@Range[5]
Out[]=
,
,
,
,
(*WhenIrunthisforallregisteredmodelsasbelow,ittakes<2minutesfor1timestep,<2.5minutesfor2timesteps,and<4.5minutesfor3timesteps*)wolframToPAOHCompare[#,3]&/@ResourceFunction["WolframModelData"][][[Range[1,Length[ResourceFunction["WolframModelData"][]]]]]