let
default_ft_handlers =
List
.map
(
fun
(_,ft,com)
->
(ft,com))
default_ft_rules_and_handlers