concrete UserEng of User = open Prelude in {
  lin
    QQuit = ss ["that's enough"] ;
} ;