let
default_ft_rules =
List
.map
(
fun
(r,ft,_)
->
(ft,r))
default_ft_rules_and_handlers