--concrete UntensedScand of Untensed = CatScand ** open ResScand in {
--
--  flags optimize=all_subs ;
--
--  lin
--    PosCl cl = {s = cl.s ! Pres ! Simul ! Pos ! ODir} ;
--    NegCl cl = {s = cl.s ! Pres ! Simul ! Neg ! ODir} ;
--
--    PosQCl cl = {s = cl.s ! Pres ! Simul ! Pos} ;
--    NegQCl cl = {s = cl.s ! Pres ! Simul ! Neg} ;
--
--    PosRCl cl = {s = cl.s ! Pres ! Simul ! Pos} ;
--    NegRCl cl = {s = cl.s ! Pres ! Simul ! Neg} ;
--
--}