concrete TopEng of Top = UserEng, SystemEng ** open Prelude in {
  lin
    MUser q = q ;
    MSystem r = r ;
}