let f0 x = match x with                                 (*data sructure *)(*definition utile ?*)
  | (0,0)->('r','w')| (1,0)->('p','w')                 (*filter and function*)
  | (0,1)->('n','w')| (1,1)->('p','w')
  | (0,2)->('b','w')| (1,2)->('p','w')
  | (0,3)->('q','w')| (1,3)->('p','w')
  | (0,4)->('k','w')| (1,4)->('p','w')
  | (0,5)->('b','w')| (1,5)->('p','w')
  | (0,6)->('n','w')| (1,6)->('p','w')
  | (0,7)->('r','w')| (1,7)->('p','w')
  | (7,0)->('r','b')| (6,0)->('p','b')
  | (7,1)->('n','b')| (6,1)->('p','b')
  | (7,2)->('b','b')| (6,2)->('p','b')
  | (7,3)->('q','b')| (6,3)->('p','b')
  | (7,4)->('k','b')| (6,4)->('p','b')
  | (7,5)->('b','b')| (6,5)->('p','b')
  | (7,6)->('n','b')| (6,6)->('p','b')
  | (7,7)->('r','b')| (6,7)->('p','b')
  | (_,_)->('-','-')