let to_fita c =  if c='_' then None else (Some c)