let boardVL fen =
let board = Array.make 8 [] in
for k=0 to 7 do
board.(k) <-   concat (map empty  (list_of_chars (apos fen).(k)))         

(***different data structure***)


 done;board