lessSafePos :: Int -> Int -> Int
lessSafePos pos count
        | (pos - 1) < 0 = count - 1
        | otherwise     = pos - 1
lessSafePos :: Int -> Int -> Int
lessSafePos pos count
        | (pos - 1) < 0 = count - 1
        | otherwise     = pos - 1
lessSafePos pos count
        | (pos - 1) < 0 = count - 1
        | otherwise     = pos - 1