uclidOff n k s p = (rotL $ fromIntegral s%fromIntegral k) (_euclid n k p)


_euclidOff n k s p = (rotL $ fromIntegral s%fromIntegral k) (_euclid n k p)
_euclidOff n k s p = (rotL $ fromIntegral s%fromIntegral k) (_euclid n k p)