relative :: [(Int, Int)] -- ^ Initial co-ordinates
         -> (Int, Int)   -- ^ Offset
         -> [(Int, Int)] -- ^ Result
relative coords = map repaCoordsToTuple
                . B.relative (map tupleToRepaCoords coords)
                . tupleToRepaCoords
relative :: [(Int, Int)] -- ^ Initial co-ordinates
         -> (Int, Int)   -- ^ Offset
         -> [(Int, Int)]
relative coords = map repaCoordsToTuple
                . B.relative (map tupleToRepaCoords coords)
                . tupleToRepaCoords
relative coords = map repaCoordsToTuple
                . B.relative (map tupleToRepaCoords coords)
                . tupleToRepaCoords