let rec mk_rotation_matrix n p tamanho acc =
  if n = 0 then List.sort compare acc
  else 
    let  x = String.make tamanho  p.[0] in
    String.blit p 1 x 0 (tamanho-1); 
    mk_rotation_matrix (n-1) x tamanho (x::acc)