concrete SystemCityEng of SystemCity = SystemEng, CityEng ** open
  Prelude in {
  lin
    RDistance x y d = 
      ss (["the distance from"] ++ x.s ++ "to" ++ y.s ++ "is" ++ d.s) ;
} ;