-numTouchingSymbols :: Engine -> NumPos -> Bool
-numTouchingSymbols engine ps = any (touchingSymbol engine) ps
+touchPoint :: [Position] -> Position -> Bool
+touchPoint region point = not $ null $ intersect region $ neighbours point
+
+touchRegion :: [Position] -> [Position] -> Bool
+touchRegion region1 region2 = any (touchPoint region2) region1
+