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