abstract TestVarsA = {

cat S;

fun a : S;

}