let
all_action_bindings () =
Actions
.fold (
fun
k v l
->
(k,v) :: l) []