let RotateArray (arr : 'a array) n =
    let reduced = n % arr.Length
    let cutPoint = if reduced < 0 then reduced + arr.Length else reduced
    Array.append arr.[cutPoint..] arr.[..(cutPoint-1)]