concrete UserCityEng of UserCity = UserEng, CityEng ** open Prelude in
  {
  lin
    QDistance x y = ss (["what is the distance from"] ++ x.s ++ "to" ++ y.s) ;
  }