evalTR _ w sr QRCurTile =
  maybeToList
  $ lookup sr
  $ wFocuses w
evalTR _ w sr QRCurTile =
  maybeToList
  $ lookup sr
  $ wFocuses w
evalTR _ w sr QRCurTile =
  maybeToList
  $ lookup sr
  $ wFocuses w