------------------------------------------------------------------------------
moveValHeuristics :: Move -> Move -> Ordering
moveValHeuristics = comparing (Down . moveValue)
moveValHeuristics :: Move -> Move -> Ordering
moveValHeuristics = comparing (Down . moveValue)
moveValHeuristics = comparing (Down . moveValue)