let
file_types () = (
List
.map fst ft_rules
#
get) @ [ft_unknown]