let  select est simb tabela =
  map (function (a,b) -> b) (filter (function  ((a,b),c) -> a=est && b=simb) tabela)