let dcaseKInt (case:coord) =
   let res = Array.create 64 0 in
 let lc = fcase case in
  for k=0 to (List.length lc)-1 do
   res.(lin (List.nth lc k)) <- 1
  done; res