abstract ListTest = {

cat A; [A]; B; [B]{1};

fun apa : A;
fun bepa : B;

}