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