-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