cntPosFunc :: Int -> Range -> Int -> Int             
cntPosFunc pos right_slice count = (pos + (head right_slice)) `mod` count
cntPosFunc :: Int -> Range -> Int -> Int
cntPosFunc pos right_slice count = (pos + (head right_slice)) `mod` count
cntPosFunc pos right_slice count = (pos + (head right_slice)) `mod` count