addSafePos :: Int -> Int -> Int
addSafePos pos count
        | (pos + 1) >= count = 0
        | otherwise          = pos + 1
addSafePos :: Int -> Int -> Int
addSafePos pos count
        | (pos + 1) >= count = 0
        | otherwise          = pos + 1
addSafePos pos count
        | (pos + 1) >= count = 0
        | otherwise          = pos + 1