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