1218799Snwhitehornstructure Pretype_dtype = 2218799Snwhitehornstruct 3218799Snwhitehorn 4257842Sdteske datatype pretype 5218799Snwhitehorn = Vartype of string 6218799Snwhitehorn | Tyop of {Thy:string,Tyop:string, Args: pretype list} 7218799Snwhitehorn | UVar of int 8218799Snwhitehorn 9218799Snwhitehornend 10218799Snwhitehorn