open System
let n = Array2D.create 10 10 0

let transpose (mtx : _ [,]) = Array2D.init (mtx.GetLength 1) (mtx.GetLength 0) (fun x y -> mtx.[y,x])

let rect x y =
  for i in [ 0..y-1 ] do
    for j in [ 0..x-1 ] do
      n.[i, j] <- 1

let rotateRow x b =
  let xs = n.[x,*]
  let  i = xs.Length - b
  let ys = Array.concat [(Array.skip i xs); (Array.take i  xs)]
  in n.[x,*] <- ys

let rotateCol y b =
  let ys = transpose n
  in ys