concrete SymbolsC of Symbols = open Prelude in {

lincat Var = SS ;

lin X_Var = ss "X" ;
lin Y_Var = ss "Y" ;

}