method direction_flag =
                  fun f b ->
                    match b with
                    | Ast.DiTo -> pp_print_string f "to"
                    | Ast.DiDownto -> pp_print_string f "downto"
                    | Ast.DiAnt s -> o#anti f s