runPoints :: (Rank,Rank,Int) -> Int
runPoints (l,h,w)
  | diff >= 2 = (diff + 1) * w
  | otherwise = 0
  where
  diff = hInt - lInt
  lInt = fromEnum l
  hInt = fromEnum h
runPoints :: (Rank,Rank,Int) -> Int
runPoints (l,h,w)
  | diff >= 2 = (diff + 1) * w
  | otherwise = 0
  where
  diff = hInt - lInt
  lInt = fromEnum l
  hInt = fromEnum h
runPoints (l,h,w)
  | diff >= 2 = (diff + 1) * w
  | otherwise = 0
  where
  diff = hInt - lInt
  lInt = fromEnum l
  hInt = fromEnum h