a #-# b = lines a - lines b
  where lines = linesFromMidC . loc
        linesFromMidC (o,l) = 7*(o-4) + (fromIntegral . fromEnum $ l)
a #-# b = lines a - lines b
  where lines = linesFromMidC . loc
        linesFromMidC (o,l) = 7*(o-4) + (fromIntegral . fromEnum $ l)
a #-# b = lines a - lines b
  where lines = linesFromMidC . loc
        linesFromMidC (o,l) = 7*(o-4) + (fromIntegral . fromEnum $ l)