-- there are 4 corners in each of the two rooms.
                           -- I mean, I am assuming that there are, but that
                           -- makes every possible solution even, even the seven
                           -- tiles per corner solution, so this could get ugly!

-- Now we need the guards, or test functions

oneTileRemainingFor, comesOutEvenFor :: Int -> Int -> Bool
oneTileRemainingFor = moduloIs 1
oneTileRemainingFor, comesOutEvenFor :: Int -> Int -> Bool
oneTileRemainingFor = moduloIs 1
oneTileRemainingFor = moduloIs 1