--- multiWalk desert directions cache states@(s:ss)
--- | (all isGoal states) && (sameTime states) = states
--- | otherwise = multiWalk desert directions newCache $ sort (s':ss)
--- where (s', newCache) = walkWithCache desert directions cache s
+multiWalk desert directions cache states@(s:ss)
+ | (all isGoal states) && (sameTime states) = states
+ | otherwise = multiWalk desert directions newCache $ sort (s':ss)
+ where (s', newCache) = walkWithCache desert directions cache s